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PRODUCT CODE: AC-TO52B-MC 

PRODUCT NAME: CJKDIBO 11/238 SLU LTC REPAIR 
PRODUCT DATE: MARCH-86 

MAINTAINER: MSD DIAGNOSTIC ENGINEERING 


THE INFORMATION IS THIS DOCUMENT IS SUBJECT TO CHANGE 


WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
CORPORATION ASSUMES NO 


EQUIPMENT CORPORATION. DIGITAL EQUIPMENT 
wae FOR ANY ERRORS THAT MAY APPEAR IN THiS 


NO RESPONSIBILITY IS ase? FOR THE USE OR RELIABILITY OF 
SOFTWARE ON ——, T IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 
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8s 1.0 GENERAL PROGRAM INFORMATION 

85 1.1 ABSTRACT 

87 THIS PROGRAM TESTS BOTH SERIAL LINE UNITS (SLU'S) AND THE LINE TIME 

88 CLOCK (LTC) ON THE M8189 MODULE. ITS MAIN PURPOSE IS TO PROVIDE SCOPE 

89 LOOPING FOR REPAIR PERSONNEL . 

90 TYPE-OUTS IDENTIFY A FUNC 

91 OR A FUNCTION THAT FAILED AND TO WHAT LOGICAL PORTION OF 

92 THE BOARD IT FAILED ON (CI.E., TRIED TO SET BIT 6 ON CSR OF SLUL). 

93 THIS PROGRAM IS BASICALLY A REWRITE OF THE DL11-W DIAGNOSTIC AND 

94 THEREFORE IS TTEN IN MACRO-11 USING THE SYSMAC MACRO PACKAGE. IT 

95 IS COMPATIBLE WITH ALL EXISTING MANUFACTURING AND FIELD SERVICE AUTO- 


MATED TEST SYSTEMS. 
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1.2 SYSTEM REQUIREMENTS 
A. HARDWARE REQUIREMENTS 
- 11/238 CPU MODULE 
- MINIMUM 8K OF MEMORY 
- TURN AROUND JUMPER INSTALLED ON SLU2 
B. SOFTWARE ENVIRONMENTS 
- XXDP STAND-ALONE 
- XXDP CHAIN MODE 
1.3 RELATED DOCUMENTS AND STANDARDS 
- DIAGNOSTIC ENGINEERING FUNCTIONAL SPECIFICATION FOR 11/24 ON 
BOARD OPTIONS TEST 
BGI-79-004-00-U 
- STANDARD APT SYSTEM TO PDP-11 DIAGNOSTIC INTERFACE REV. 15 
16-FEBRUARY-76 APT SYSTEM GROUP 
- DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS 
175-003-009-02 
1.4 PREREQUISITE DIAGNOSTICS 


THIS PROGRAM ASSUMES THE CORRECT OPERATION OF THE CPU INSTRUCTION SET. 
THIS IS TO BE VERIFIED BY EITHER: 


CJKDBXX DCF11-AA_CPU DIAGNOSTIC 
CUKDEXX F1i QUICK TEST 


1.5 ASSUMPTIONS 


IT IS ASSUMED Ma THE CONSOLE DEVICE THAT IS CONNECTED TO SiUi IS A 


ERATING C IF THE TERMINAL IS NOT OPERATING CORRECTLY 
INDICATIONS CAN fe "EXPECTED. 


2.0 OPERATING INSTRUCTIONS 
2.1 LOADING AND STARTING PROCEDURES 
USE STANDARD PROCEDURE FOR PDP-11 ABSOLUTE BINARY FORMATTED TAPES. 


SEQ 0004 


Fi 


SEQ 0005 
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138 2.1.1 STARTING PROCEDURE - 
156 LOAD THE SWITCH REGISTER WITH SETTING (SOFTWARE SWITCH REGISTER LOCA- 
13 TION = 176) 
159 A. pA AT 200. 
160 AFTER CHECKING THE TRANSMITTER, THE PROGRAM WILL PRINT ITS 
161 IVENTIFICATION AND REPORT THE NUMBER OF DEVICES UNDER TEST 
162 (NUMBER IS OCTAL). “END PASS” IS PRINTED AFTER A FULL PASS 
1s HAS BEEN MADE ON ALL DEVICES UNDER TEST. 
165 B. START AT 204. *xe4NOTE sees 
166 THE MECHO® TEST WILL BE EXECUTED. * AN “*” IS PRINTED AT THE 
167 BEGINNING OF THE TEST. THE ECHO TEST READS A CHARACTER FROM 
168 THE TERMINAL, WRITES THAT CHARACTER TO THE TERMINAL, AND 
169 PORTS - FLAGS SET IN THE BUFFER. 
170 CONTROL-C (tC) HALTS THE TEST AND PRINTS “STOP” AT THE fered. 
fe NAL CONTINUING RESTARTS THE ECHO TEST. 
th, C. START AT 210. *ee4NOTE sees 
175 THE TERMINAL OUTPUT TEST WILL BE EXECUTED. DEPRESSING ANY 
176 CHARACTER AT THE TERMINAL HALTS THE TEST. CONTINUING RES- 
177 TARTS THE TEST. THE TEST OUTPUTS 32 TERS ON A LINE AND 
178 REPEATS THE PATTERN EVERY THREE LINES. THE PATTERN IS AS 
we FOLLOWS COCTAL CODE 040 --> 377): 
181 
182 THIS BOTTOM LINE COULD BE THE FOLLOWING IF THE TERMINAL DOES 
i NOT HAVE LOWER CASE: 
a @ABCDEF GHIUKLMNOPGQRS TUVWXYZ [UPPER CASE ALPHA] 
187 
188 2.2 PROGRAM OPTIONS 
189 
190 
191 BITi5 - HALT ON ERROR 
192 BIT14 - ooP 
193 BITi3 - INHIBIT ERROR TYPEOUT 
194 BIT - 
195 BITil - UNUSED 
136 BIT1O - INHIBIT ERROR FLAGS TEST 
197 BIT - LOOP ON ERROR 
198 BIT - UNUSED 
199 BITO7 - DISABLE SLU2 DATA TEST 
200 BIT - INHIBIT LTC TESTS 
201 BITOS - INHIBIT ALL SLU TESTS (BOT? ;_US) 
202 BIT - IT SLUL TESTING 
203 BITO3 ~ IT SLU2 TESTING 
204 BIT - UNUSED 
205 BITOL - UNUSED 
os BIT - UNUSED 
208 BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE CON- 
209 TENTS OF THE SOFTWARE SWITCH REGISTER DURING EXECUTION. TO DO THIS 
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210 THE OPERATOR MUST TYPE A “CNTL G". fate’ fee A "G" WITH THE “CTRL” KEY 
211 HELD DOWN AT THE SAME TIME). S IS PROCESSED AT KEY TIMES DURING 
212 THE PROGRAM (I.E. ON ERRORS, IN BETWEEN EACH TEST). A PROBLEM CAN 
213 OCCUR SINCE THE PROGRAM MAY BE TESTING THE SLU CONNECTED TO THE CON- 
214 SOLE DEVICE . IF THIS HAPPENS IT SHOULD NOT CAUSE AN E 
215 “CNTL G” MAY BE LOST, SO IF THE PROGRAM DOES NOT RESPOND TO THE FIRST 
216 “CNTL G" TYPE A FEW MORE UNTIL THE RESPONSE IS RECEIVED. WHEN THE 
rt} “CNTL G” IS RECEIVED THE PROGRAM WILL RESPOND WITH: 
219 SWR = XXXXXX NEW = 
ze 
222 WHERE XXXXXX IS EQUAL TO THE PRESENT SWITCH REGISTER CONTENTS IN 
— OCTAL. THE OPERATOR CAN THEN TYPE; 
<< 1. <CR> IF NO CHANGES ARE TO BE MADE. 
227 2. 6 DIGITS <CR> TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 
oe SETTING. 
230 3. CONTROL-U IF THE OPERATOR MAKES AN ERROR WHILE INPUTING THE 
sa NEW SWITCH REGISTER SETTING. 
233 
234 
oo 2.3 EXECUTION TIMES 
237 1ST PASS RUNTIMECWORST CASE)............+--- 15 SECONDS 
238 LONGEST TEST TIME... .....ccrcsesecceeccccces 12.5 SECONDS 
239 ADDITIONAL RUN TIMECEXTRA UNITS)............ NONE 
4] LONGEST PASS TIME... cccecccccvecceccecces 15 SECONDS 
242 
243 
245 3.0 ERROR INFORMATION 
247 
Sa5 3.1 ERROR REPORTING PROCEDURES 


IF A ROUTINE FAILS AND THE INHIBIT ERROR TYPEOUT (BIT13) OF THE SWR IS 
251 NOT SET, A PRINTOUT RESULTS IN THE FORM: 


“(SOME ASCII MESSAGE)" 
TEST ERR PC RCSR oe APPLICABLE DATA HEADINGS] 
XXXXXX  AXXXXX  XAXXXXX APPLICABLE DATA] 


NOTE: "RCSR” IS DEPENDENT ON THE FAILURE THEREFORE 
COULD BE TCSR, RBUF, TBUF, OR LKS 


WHERE “XXXXXX" IS AN OCTAL NUMBER. 


THIS ERROR PRINTOUT as PROVIDED THE ERROR THAT EXISTS WOULD NOT 
HINDER THE CASES WHERE IT IS NOT POSSIBLE TO PRINT AN 
ERROR MESSAGE (I.E. FATAL CONSOLE TRANSMITTER FAILURES), A HALT 
OCCURS. (SEE SECTION 3.2 FOR ERROR HALT INFORMATION. ) 


APAVSSIBIAAVORISSASTE 
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266 
267 
268 NOTE 
270 FOR SOFTWARE SWITCH OPERATION, THE 
271 SWITCH REGISTER CAN BE HANGED BY TYPING 
272 A CONTROL-G AT THE CONSOLE DURING ERROR 
PRI S. AFTER CONTI 
274 ERROR HALT THE OLD SWR CONTENTS IS _DIS- 
275 PLAYED AND T CONT 
276 TERED. IF ERROR HALTS ARE DISABLED, THE 
277 CONTROL-G RESPONSE OCCURS IMMEDIATELY 
278 FOLLOWING THE TYPEOUT. 
280 
261 3.2 ERROR HALTS 
283 THERE ARE 4 ERRORS IN THIS PROGRAM THAT CAUSE A HALT. THESE ERRORS 
284 ARE IN TESTS 1, 2, AND 3. 
286 TEST 1 ERROR - ACCESS TO SLU1 TRANSMITTER CSR CAUSE TIME-OUT TRAP. 
287 THIS PROBLEM WILL PROBABLY CAUSE AN INABILITY OF THE 


MICRO-ODT TO RUN. 

TEST 2 ERROR - ACCESS TO SLU1 TRANSMITTER DATA BUFFER CAUSED TIME-OUT 
TRAP. THIS PROBLEM WILL PROBABLY CAUSE AN INABILITY OF 
THE MICRO-ODT TO RUN. 


TEST 3 ERROR - THE FIRST ERROR IS THAT DONE DID NOT CLEAR WHEN THE 
TRANSMITTER BUFFER WAS FILLED AS IT SHOULD. 


288 
289 
291 
293 
294 
596 
297 THE SECOND ERROR INDICATES THAT DONE DID NOT RESET IN A 
298 REASONABLE AFTER THE DATA BUFFER WAS FILLED, INDI- 
299 CATING THAT THE CHARACTER WAS NEVER TRANSMITTED. THIS 
300 COULD CAUSE MICRO-ODT TO NOT RUN OR GARBLED OUTPUT FROM 
301 THE MICRO-ODT. 
302 
303 
304 
305 
306 
307 
308 


4.0 PERFORMANCE AND PROGRESS REPORTS 


309 THE ONLY REPORT FROM THIS PROGRAM OTHER THAN ERROR REPORTS IS THE END 
310 PASS MESSAGE. IT IS IN THE FORM: 


END PASS XXXXXX 
314 WHERE XXXXXX IS THE DECIMAL NUMBER OF END OF PASSES COMPLETED. 
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353 

324 5.0 DEVICE INFORMATION TABLES 

326 SLU1 RCSR 

328 15 14 13 12 11 109 8 765 43 241 «0 
330 I es a I 
BBQ a nee enn e nee n ene n nee ene e renee ne nnnnnnn-n- 
332 I I 

333 : 2 

334 RECEIVER DONE --------------------------- I 

see RECEIVER INTERRUPT ENABLE ------------------- 

337 

338 

339 SLU1 RBUF 

si 2 ie ee Se FT Se S&S £8 es 8 
343 2 ae eee ie oe ae ee ae ee eS Se 
5 jj. <<" iietiiiipittt nia esa hwit LSS SSO LCI SEAOTSREEO RENTS CNReSE SEES Eee 
345 eS IS ee I 

346 oS eA ge I 

347 ERROR- I I I I 

348 OVERRUN --- I I I 

349 FRAME --- f I 

a RECEIVE PARITY ---- j 

as RECEIVED DATA BITS (8) -------------------------------- 

354 

355 

336 SLU1 XCSR 

-_ ae ee. a ee Oe Me oe oe ee ee ee 
360 I e2 -F . a 
ess le tle ite i Rn a rnin ante em ten Sate a ia 
362 - I 
363 TRANSMITTER READY --------------------- I I 
364 TRANSMITTER INTERRUPT ENABLE -------------- I 
365 eae EE Eee Se oe 
366 

367 

see SLU1 XBUF 

Ls 15 14 13 12 11 109 8 7 6 § 4 3 2 1 @Q 
372 ee a a a a . £ s+ @ es 2 sf 
a a rena i nce tenement etn a trae G NE 
374 TI 

375 I 

+9 TRANSMITTER DATA BITS (8) --------------------------- 
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LTC CSR 
se SS a ee he Oe cee ee ee ee ee 
I I I I 
I 
INTERRUPT ENABLE -------------------------- 
SLU2 RCSR 
ae Se ae ee ee er ee ee ee 
I i I 
a | 
.. 2 
RECEIVER DONE ------------------------- I 
INTERRUPT ENABLE -------------------------- 
SLU2 RBUF 
he Bie ee a 
re Se ee ee ee SC eee ce Ge ee ae 
Tae fae ae I 
Se oe I 
Erase - £ ££ if I 
OVERRUN --- I I I 
FRAME ERROR --- I I 
RECEIVER PARITY --- I 
ERROR T 
RECEIVER DATA BITS (8) ------------------------------ 
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SEQ 0010 


434 

435 

436 

437 SLU2 XBUF 

438 15 14 13 12 11 109 8 765 43 21 «0 

440 I ' ££ Y. 

BAG eee we nee n ewer enn n nen nen n nn nnennnn-- 

442 I 

443 I 

444 TRANSMITTER DATA BITS (8) ------------------------- 

446 

447 

448 

449 6.0 PROGRAM DESCRIPTION 

451 

452 6.1 PROGRAM EXECUTION CHARACTERISTICS 

454 THIS PROGRAM TESTS ALL THE SELECTED DEVICES AS A SINGLE UNIT. IT 

455 FIRST VERIFIES THAT ALL REGISTERS CAN BE ACCESSED, THE WRITEABLE BITS 

456 ARE ABLE TO BE WRITTEN TO AND ARE UNIQUE ON DEVICES. IT 

457 THEN CHECKS E DEVICE FOR INTERRUPTS AND FOR DATA RELIABILITY 

FINALLY IT CTED DEVICES UP TO GO AT THE SAME 

459 INTERRUPTS AND STARTS THEM OFF. THIS TEST CHECKS SYSTEM INTERACTI 

460 WHEN ALL TESTS HAVE BEEN COMPLETED THE END OF PASS 

462 

465 6.2 SUBTEST SUMMARIES 

465 TEST1 TEST ABILITY TO ACCESS SLU1 TRANSMITTER CONTROL AND STATUS 

466 REGISTER. HALTS IF ACCESS CAUSES TIME-OUT TRAP. 

468 TEST2 TEST ABILITY TO ACCESS SLU TRANSMITTER BUFFER. HALTS IF 

469 ACCESS CAUSES TIME-OUT TRAP. 

471 TEST3 TEST SLU1 TRANSMITTER BIT7 (DONE) CLEARS WHEN TRANSMITTER 

472 BUFFER IS LOADED. THE BUFFER IS LOADED WHICH SHOULD CLEAR 

473 THE DONE BIT. AFTER IT IS VERIFIED THAT "DONE” CLEARS 

474 PROGRAM WAL{S TO RECEIVE DONE BACK AFTER THE DATA Ts TRANS 

475 FERRED BUFFER. IF DONE DOES NOT INITIALLY CLEAR 

476 OR FAILS TO RESET THE PROGRAM HALTS. 

478 TEST4 TEST THAT SLUL TRANSMITTER BIT7 (DONE) SETS WITH RESET. THE 

479 TR T BUFFER IS LOADED WITH A CHARACTER, AS SOON AS 

" SECOND CHARACTER IS LOADED INTO THE BUFFER 

481 BECAUSE THE FIRST CHARACTER IS STILL BEING SHIFTED OUT OF 
THE UART “DONE” NORMALLY SET FOR AT LEAST 1 MS (DE- 

483 PENDING BAUD RATE). THE ISSUES A RESET BEFORE 

484 THE TIME IS UP AND IMMEDIATELY CHECKS FOR “DONE”, IF IT IS 

485 SET THE PROGRAM ASSUMES IT WAS SET BY THE RESET INSTRUCTION. 

486 STS CRROR boee NOT CAUSE A HALT. 


488 TESTS TEST ABILITY TO ACCESS SLU1 RECEIVER CONTROL AND STATUS RE- 
489 GISTER. AN ERROR IS REPORTED IF ACCESS CAUSES A TIME-OUT 
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430 TRAP. 
492 TEST6 TEST ABILITY TO ACCESS SLUL RECEIVER BUFFER. AN ERROR IS 
493 REPORTED IF ACCESS CAUSES A TIME-OUT TRAP 
495 
496 TEST10 TEST THAT SLU TRANSMITTER INTERRUPT ENABLE (BIT6) CAN BE 
497 SET AND RESET. THIS TEST CHECKS THAT THE BIT CAN BE WRITTEN 
498 INTO AND READ, CLEARED BY WRITING A ZERO TO IT AND CLEARED 
499 BY A "RESET". 
501 TEST? TEST THAT SLUL RECEIVER INTERRUPT ENABLE (BIT6) CAN BE SET 
302 AND RESET. SAME TEST AS FOR TRANSMITTER INTERRUPT ENABLE. 
504 TEST10 TEST THAT SLU1 BIT6 OF RECEIVER CSR CAN BE SET AND RESET 
505 PERFORM BIS (BIT SET) Py BIC (BIT CLEAR) om THE RCSR. 
206 AN ERROR HERE CAUSES AN ERROR PRINT OUT TO TERMINAL. 
208 TEST11 | SAME AS TEST1 BUT DONE ON SLU2 AND ERROR DOES NOT CAUSE HALT. 
2b TESTi2 § SAME AS TEST2 BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 
212 TEST13 SAME AS TEST3 BUT FOR SLU2 AND ERROR DOES NOT CAUSE HALT. 
18 TEST14-16 SAME AS TEST4-6 BUT FOR SLU2. 
516 TEST17 TEST SLU2 BREAK BIT (BITO) CAN BE SET, CLEARED, AND RESET. 
a7 PERFORM BIS, BIC AND BIT ON SLU2 TCSR. 
219 TEST20-21 SAME AS TEST 7-10 BUT FOR SLU2. 
S521 TEST22 TEST THAT SLU2 RCVR DONE BIT (BIT7) SET AND CLEAR PROPERLY. 
522 WITH A LOOP BACK CONNECTOR PLACED ON SLU2, THE CODE WILL LOAD 
523 THE TRANSMIT BUFFER AND EXPECT TO RECEIVE DATA IN THE RECEIVER 


BUFFER. A CORRECT RESULT WILL CAUSE THE RCSR DONE BIT TO BE SET. 
THE TEST WILL ALSO PERFORM A RESET INSTRUCTION AND TEST THAT THE 
RCSR DONE BIT 7 IS CLEARED. 


TEST23 TEST SLU2 THAT READING THE RBUF CLEARS THE RECEIVER DONE BIT 7. 


TEST24 TEST ABILITY TO ACCESS LINE CLOCK STATUS REGISTER. ERROR 
REPORTED IF ACCESS CAUSES TIME-OUT TRAP. 


TEST25 TEST THAT LINE CLOCK INTERRUPT ENABLE (BIT6) CAN BE SET 
SET". THIS TEST PERFORMS THE BIT, BIC AND BIS 


CLEARED ORE 
INSTRUCTIONS ON BIT 6 OF THE LKS. 


TEST26 UNIQUE INTERNAL ADDRESS TEST. THIS TEST WRITES A_ BIT INTO 
ONE OF THE DEVICE REGISTERS AND THEN VERIFIES THAT BIT IS 


NOT SET IN OTHER REGISTERS. THE TEST IS REPEATED FOR 
REGISTERS. 
TEST27 TEST THAT SLU1 TRANSMITTER INTERRUPTS ONLY ENABLED. 


THIS TEST CHECKS THAT THE TRANSMITTER ONLY INTERRUPTS WHEN 
ITS INTERRUPT ENABLE BIT IS SET. 


pS PbS Shot teh dette at et hy 


345 
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546 TEST30O TEST SLU1 TRANSMITTER INTERRUPTS DO NOT OCCUR WHEN DISABLED. 
547 THIS TEST CHECKS THAT THE TRANSMITTER DOES NOT INTERRUPT 
548 WHEN THE PROCESSOR PRIORITY IS 7 OR THE INTERRUPT ENABLE BIT 
pat IS CLEARED 
551 TEST31 TEST SLU1 TRANSMITTER FOR DOUBLE INTERRUPTS. THIS TEST 
S52 FIRST CHECKS THAT THE TRANSMITTER CAN INTERRUPT THEN MAKES 
553 SURE THAT ONLY ONE INTERRUPT IS REQUESTED FOR EACH SETTING 
aes OF “DONE” 
556 TEST32 TEST THAT SLU1 TRANSMITTER INTERRUPT CLEARS WITH LOADING OF 
557 TRANSMITTER BUFFER. THIS TEST PUTS THE PROCESSOR AT 7, SETS 
558 TRANSMITTER INTERRUPT ENABLE AND FILLS THE TRANSMITTER 
559 BUFFER. WHEN “DONE” SETS THE SLU SHOULD HAVE AN INTERRUPT 
560 PENDING. THE PROGRAM THEN FILLS THE BUFFER AGAIN WHICH 
Fes SHOULD CLEAR THE INTERRUPT. 
or TEST33-36 SAME AS TESTS 27-32 EXCEPT FOR SLU2 INSTEAD OF SLU1. 
565 TEST37-41 SAME AS TESTS 27-31 EXCEPT FOR SLU2 RECEIVER INSTEAD OF 
aes SLU1 TRANSMITTER. 


TEST42 TEST THAT SLU2 RECEIVER INTERRUPT CLEARS BY READING RBUF. 
THIS TEST SETS THE PRIORITY AT 7 SETS RCVR INTERRUPT 
AND FILL THE TBUF. WHEN “DONE” SETS, RBUF WILL ATTEMPT TO CLEAR 
THE INTERRUPT BY READING THE BUFFER” 


TEST43 TEST SLU2 THAT RESET CLEARS INTERRUPT. THIS TEST SETS 
THE PRIORITY TO 7, SETS RCVR ENABLE AND THEN WAITS FOR RCV 
DONE. WHEN “DONE” SETS, A RESET INSTRUCTION IS EXECUTED. 

AN ERROR IS REPORTED IF THE RECEIVER INTERRUPT IS NOT CLEARED. 











TEST44 TEST a THAT ations Ts a ee BITS CAN 
oe, Cee Fino RCVR ONE AT A TIME. 61114 OF 
FOR OVERRUN. IF IT IS NOT SET AN ERROR 
15 (ERROR BIT) 15 THEN CHECKED TO O VERIFY THAT 
TEST4S ALL ZEROS. PUT ALL ONES INTO RE- 


BUETER THEN ISSUE A BREAK THE RECEIVER BUFFER SHOULD 


TEST46 TEST THAT FRAMING ERROR (BIT13) CAN BE SET OURING BREAK. 

A A CHARACTER JUST TO LET US KNOW WHEN TO 
LOOK FOR ERROR WHEN RECEIVER “DONE” SETS BOTH 
BREAK AND SHOULD BE THERE, CHECK FOR BIT 13 IN RE- 
CEIVER STATUS REGISTER. 


TEST47 est SLU2 DATA PATH USING WRAP CABLE o's. as eat 






ANSMITS A_BINARY COUNT P SS Ee Te TIME. 
TEST THEN VERIFIES THE DATA AGAINST T IT EXPECTED TO RECEIVE. 
ERRORS "ARE REPORTED TO THe TERMINAL. 


TESTSO TEST LINE TIME CLOCK INTERRUPTS PROPERLY. 
TESTS1 TEST LINE TIME CLOCK FOR DOUBLE INTERRUPTS. 


SS SES RS ReeSSSESRRsekesse ls sonnoes 
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621 


620 
622 
623 
624 
625 
626 
627 
628 
629 
630 
oe 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
ie 
654 
655 
656 
657 


SEQ 0013 
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TESTS2 TEST THAT LINE TIME CLOCK INTERRUPT CLEARS WITH RESET. 


TESTS3 BLAST AF THIS TEST RUNS ALL SELECTED DEVICES SIMULTANE- 
OUSLY AFTER 60 INTERRUPTS FROM THE LINE 
CLOCK OR "256 (10) BYTES HAVE BEEN TRANSFERRED BY THE SLU‘S 
EVERYTHING IS SHUT DOWN. THE PROGRAM THEN VERIFIES THAT NO 
INTERRUPTS WERE LOST ON EITHER SLU AND THAT THE DATA TRANS- 
FERRED WAS CORRECT. 


NOTE: IF RUNNING UNDER THE APT ENVIRONMENT MANY OF THE ABOVE TESTS ARE 
ONLY EXECUTED DURING FIRST PASS. 

6.3 SPECIAL SUBROUTINE DESCRIPTIONS 

6.3.1 ECHO TEST - 

THIS ROUTINE WILL ECHO ANY CHARACTER TYPED ON EITHER SLU1 OR Sie. 
DEFAULT IS TO THE CONSOLE DEVICE SLU1. THE TEST IS HALTED BY TYPING A 
CONTROL-C. TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING. 
6.3.2 TERMINAL OUTPUT TEST - 

RES ROUT DE WL, Cue che ae Gattten cn EACH FOR THE OCTAL 


CODE 
--> 377. 32 CHARACTERS ARE PRINTED ON EACH LINE. THE PATTERN IS 
REPEATED EVERY THREE LINES. 


7.0 LISTING 
& 
.TITLE CJKDIBO 11/238 SLU LTC REPR DIAG 
;*#COPYRIGHT (C) SEPT-81, MARCH-86 
EQUIPMENT 


;*DIGITAL 
— » MASS. 01754 
; 


ar 
jTHIS PR PROGRAM WAS ASSEMBLED USING THE POP-11 MAINDEC SYSHAC 
tg ABS, AMA 


TYPE=104401 


CKSWR=104407 
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658 104410 
659 104411 
660 000021 
661 000023 
662 000001 
663 160000 
664 000000 
665 000001 
666 
667 
668 
669 
670 001100 
671 
672 
673 
674 
675 000011 
676 000012 
677 000015 
678 
679 177776 
680 
681 177774 
682 177772 
683 177570 
684 177570 
685 
586 
687 000000 
688 000001 
689 000002 
690 000003 
691 000004 
692 000005 
693 000006 
694 000007 
695 000006 
696 000007 
697 
698 
699 000000 
700 000040 
701 000100 
702 000140 
703 
704 
705 000300 
706 000340 
707 
708 
709 100000 
710 040000 
711 020000 
712 010000 
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$TN=1 

$SWR=160000 ; HALT ON ERROR, LOOP ON TEST, INHIBIT ERROR TYPOUT 
$SWRMRK =000000 

$TN=1 

.SBTTL BASIC DEFINITIONS 

hee ate OF THE STACK POINTER *#* 1100 ##« 


TACK= 
;sBASIC DEFINITION OF ERROR CALL 


EQUIV EriT ,.ERROR 
EQUIV IOT,SCOPE ; BASIC DEFINITION OF SCOPE CALL 


;*MISCELLANEOUS DEFINITIONS 


HT= ii ; sCODE A HORIZONTAL TAB 

LF= le ; CODE F FEED 

CR= 15 ;;CODE FOR CARRIAGE RETURN 

CRLF= 200 ;;CODE FOR CARRIAGE RETURN-LINE FEED 
PS= 177776 ; PROCESSOR STATUS WORD 


;;STACK LIMIT REGISTER 

; PROGRAM T REQUEST REGISTER 
DSWR= ; ;HARDWARE SWITCH REGISTER 
ODISP= 177570 ; HARDWARE DISPLAY REGISTER 


or. PURPOSE REGISTER DEFINITIONS 





#0 ;;GENERAL REGISTER 
Ri= #1 3; ;GENERAL REGISTER 
R2= #2 ; ;GENERAL 
R3= 63 ; ;GENERAL 
R4= Ka Tt 
R5= 65 33 
R6= eE $3 
R7= “7 3 
SP= 8H 33S 
PC= a7 33 
peeeeraty LEVEL DEFINITIONS 

0 ;s;PRIORITY LEVEL O 
PRi= 40 ;;PRIORITY LEVEL 1 
PR2= 100 ;;PRIORITY LEVEL 2 
PR3= 140 ;;PRIORITY LEVEL 3 
PR4= 200 ;;PRIORITY LEVEL 4 
PRS= 240 ;;PRIORITY LEVEL 5 
PR6= 300 PRIORITY LEVEL 6 
PR7= 340 ;;PRIORITY LEVEL 7 
pegs REGISTER” SWITCH DEFINITIONS 

15= 100000 

SWi4= 40000 
SWi3= 20000 


SWi2= 10000 
4000 


SEQ 0014 


Ce 
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SABARAPAVAASESS 


SII ISS 
SIKFLAVH] 


769 


002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 


000002 
000001 


100000 
040000 
020000 
010000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 


000002 
000001 
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BASIC DEFINITIONS 


2000 
SWO9= 1000 


*BASIC “CPU” TRAP VECTOR ADDRESSES 
ERRVEC= 4 TIME OUT AND OTHER 


3 ERRORS 
RESVEC= to ;;RESERVED AND ILLEGAL INSTRUCTIONS 
TBITVEC=14 33"T" BIT 
TRIVEC= 14 337R TRAP 
BPTVEC= 14 ; BREAKPOINT TRAP (BPT) 


a LLL LL LLL LL LLL LLL 





SEQ 0015 


Ss eciniies undies aensnrmamationliannglaicatiaal 


De 


SEQ 0016 
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770 000020 IOTVEC= 20 + eTNEUT /QUTPUT TRAP (IOT) *#SCOPE+« 
771 000024 PWRVEC= 24 ; POWER FAIL 
772 000030 EMTVEC= 30 ; EMULATOR TRAP (EMT) *#*ERROR+« 
773 000034 TRAPVEC=34 + TRAP” TRAP 
774 000060 TKVEC= 60 ;sTTY KEYBOARD VECTOR 
775 000064 TPVEC= 64 ;sTTY PRINTER VECTOR 
776 000240 PIRQVEC=240 ;sPROGRAM INTERRUPT REQUEST VECTOR 
777 176500 ABASE= 176500 
778 000300 py 1= 300 
$TN= 

781 161000 $SWR= 161000 
782 000003 BPT= 000003 ;THIS IS THE COMMAND FOR A TRAP 
783 ; THROUGH 14 (BPT TRAP) 
784 000000 TY=0 
785 000000 AFATAL=0 

000000 ATESTN=0 
787 000000 APASS=0 
788 000000 ADEVCT=0 
789 000000 AUNIT=0 

000000 AMSGAD=0 
791 000000 AMSGLG=0 
792 000000 AENV=0 
793 000000 AENVM=0 
794 000000 ASWREG=0 
795 000000 ACPUOP=0 
796 000000 AMAMS1=0 
797 000000 AMTYP1=0 
798 000000 AMADR1=0 
799 000000 AMAMS2=0 
800 000000 AMTYP2=0 
801 000000 AMADR2=0 
802 000000 AMAMS3=0 
803 000000 AMTYP3=0 
804 000000 AMADR3=0 
805 000000 AMAMS4=0 
806 000000 AMTYP4=0 
807 000000 AMADR4= 
808 000000 AVECT2=0 
809 000000 = 
810 
811 
812 000000 -ASECT 
813 000000 .=0 
814 1 pocoenatensesosenesoezoosesmsosssorneonsqsossouesnaestessseoes 
aa pes: Nt ge Ae oe cee Tatas or A” —_— 
oH ;#LOCATION 0 CONTAINS 0 TO CATCH IMPROPERLY LOADED VECTORS 
819 
820 000014 .714 ~— BPT TRAP VECTOR POINTS TO THE 
821 000014 012370 .WORD CATCH ILLEGAL TRAP HANDLER “CATCH" 
see 000016 000340 -WORD 340 


824 000042 2 42 
825 000042 000000 -WORD 0 





te 
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001000 


001100 


001000 


SEQ 0017 
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BASIC DEFINITI 
DISPREG:.WORD 0 
SWREG: .WORD 0 

.=200 

JMP START ;D0 INTERFACE TEST 

JMP ECHO ;D0 ECHO TEST 

JMP OUTTST ;D0 OUTPUT TEST TO TERMINAL 


2 500 
.SBTTL ACT11 HOOKS 


5p RRERARERRERRSEEEERRARE EERE REESE EEES EASES SE EEEEEE EE ES OSES EEE ES ES 
; QUIRED BY ACT1 


a ;SAVE PC 
HENDAD ;;1)SET LOC.46 TO ADDRESS OF $ENDAD IN .$E£0P 
0 +12 )SET LOC.S2 TO ZERO 

33 RESTORE PC 


. =$SVPC 
.SBTTL APT PARAMETER BLOCK 
; pen mag apg ae ee pe nmemammmaaas 


; LOCATIONS 24 AND 44 AS REQUIRED F 


s:eesnanegeeerterese an 4E466904500O40460000000000020000000400464 
.$X=, SAVE Cae =" 
.=24 ;aSET POWER FAIL TO TO START OF PROGRAM 
:3;FOR APT START 
33 TO INDIRECT ADDRESS PNTR. 


244 POINT 
$APTHDR ;;POINT TO APT HEADER BLOCK 


s Rekdhed hhh h4E$SSESGEEEEEEEEESEEEEEEEDEODOEEEEEO4000000000000202 
SET BLOCK AS DEFINED IN THE APT-POP11 DIAGNOSTIC 
; e 


$APTHD: 

SHIBTS: .WORD 0 .;TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 

SMBADR: “WORD $MAIL ;, ADDRESS OF APT MAILBOX (BITS 0-15) 

$TSTM: -WORD 50 SyRUN TIM OF LONGEST 

$PASTM: ‘WORD 60 ‘tOUN TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 

$UNITM: “WORD 55 ADDITIONAL RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
HD ORETEND-stAIb ee | LENGTH MAILBOX-ETASLECWORDS ) 


-SBTTL COMMON TAGS 


5 FERRER ERERESERRAEERERAERARESEERERERERRERESRESRARERS SS ERE EERES 
;#THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
;*USED IN THE PROGR 


33START OF COMMON TAGS 





Fe 
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SEQ 0018 
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COMMON TAGS 


$TSTNM: .BYTE O ;;CONTAINS THE TEST NUMBER 
$ERFLG: .BYTE 0 33C INS ERROR FL 
$ICNT: .WORD 0 ;;CONTAINS SUBTEST ITERATION COUNT 
$LPADR: .WORD 0 ;;CONTAINS SCOPE LOOP ADDRESS 
$LPERR: .WORD 0 33C INS SCOPE RETURN FOR ERRORS 
$ERTTL: .WORD 0 ;;CONTAINS TOTAL ERRORS DETECTED 
$ITEMB: .BYTE 0 ;;CONTAINS ITEM CONTROL BYTE 
$ Xx: .BYTE 1 ;;CONTAINS MAX. ERRORS PER TEST 
$ERRPC: .WORD 0 : |CONTAINS PC OF LAST ERROR INSTRUCTION 
$GDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘GOOD’ DATA 
$BDADR: .WORD 0 ;;CONTAINS ADDRESS OF ‘BAD’ DATA 
$GDDAT: .WORD 0 ;;CONTAINS ‘GOOD’ DATA 
$BDDAT: .WORD 0 CONTAINS ‘BAD’ DATA 

. WORD : ; ;sRESERVED--NOT TO BE USED 
$AUTOB: .BYTE 0 1 TORT TE MODE INDICATOR 
$INTAG gee : ;; INTERRUPT MODE INDICATOR 
SWR: -WORD OSWR ; ADDRESS OF SWITCH REGISTER 
DISPLAY: .WORD ODISP ;:;ADDRESS OF DISPLAY REGISTER 
$TKS: 177560 3311Y KBD STATUS 
$TKB: 177562 vety KBD BUFFER 
$TPS: 177564 ;;TTY PRINTER STATUS REG. ADDRESS 
$TPB: 177566 3;1TY PRINTER BUFFER REG. ADDRESS 
$NULL: .BYTE 0 33 CHARACTER FOR FILLS 
$FILLS: .BYTE 2 ;:;CONTAINS @ OF FILLER CHARACTERS 
$FILLC: .BYTE 12 ;;INSERT FILL CHARS. AFTER A “LINE FEED” 
$TPFLG: .BYTE 0 3: "TERMINAL AVAILABLE” FLAG (BIT<07>=0=YES) 
$TMPO: .WORD 0 33 DEFINED 
$TMPi: .WORD 0 ;;USER DEFINED 
$TMP2: .WORD 0 33 DEFINED 
$TMP3: .WORD 0 33 DEFINED 
$TMP4: .WORD 0 33 DEFINED 
$ESCAPE :0 ; ESCAPE ON ERROR ADDRESS 
$QUES: .ASCII /?/ ; ;QUESTION MARK 
$CRLF: .ASCII <i5> ;; CARRIAGE RETURN 
$LF: -ASCIZ <i2> LINE FEED 


3 
5 RRoeeAeAASESSSSSERSRERERRERESSERESEAERASRE SS REREEEEEESEEEEESS 
TTL APT ABLE 


ff REREAESRSASERESSSARSAASAASERSESSSREREASESSSASSASAELERS SRE SSE SESE LSS 


a 


Ge 


SEQ 0019 
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938 001126 000000 $CPUOP: .WORD  ACPUOP CPU TYPE , OPTIONS 
939 + giTs 15- 11=CPU TYPE 
940 a 1/04=01, 11/05=02, 11/20=03, 11/40=04, 11/45=05 
941 7 * +7 /70= 06, PDQ= 07, s 
942 a BIT 10=REAL TIME CLOCK 
943 ve BIT 9=FLOATING POINT PROCESSOR 
944 ‘a BIT 8=MEMORY 
945 001130 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS H. S. BYTE 
946 001131 000 SMTYP1; ‘BYTE AMTYP1 .:MEM. TYPE. BL 
947 7 igen of seyie -- (HIGH BYTE) 
948 ;* CORE=001 
949 - 300 NSEE BIPOLAR=002 
* 500 NSEC MOS=003 
951 001132 000000 {MADR1: .WORD AMADR1 ;;HIGH ADDRESS, BLK#1 
952 is MEM.LAST ADDR.=3 BYTES, THIS WORD AND LOW OF “TYPE” ABOVE 
953 001134 000 MAMS2: .BYTE AMAMS2 ;;HIGH ADORESS,M.S. BYTE 
954 001135 000 $MTYP2: /BYTE AMTYP2 ;;MEM. TYPE, BLK#2 
955 001136 000000 $MADR2: :.WORD AMADR2 ;;MEM.LAST ADDRESS,BLK¢2 
956 001140 000 $MAMS3: .BYTE AMAMS3 ;;HIGH ADDRESS,M.S.BYTE 
957 001141 000 SMTYP3: .BYTE AMTYPS ;;MEM. TYPE,BLKO3 
958 001142 000000 $MADR3: .WORD AMADR3 ;;MEM.LAST ADDRESS,BLKES 
959 001144 000 $MAMS4: .BYTE AMAMS4 ;;HIGH ADDRESS,M.S.BYTE 
960 001145 000 SMTYP4: [BYTE AMTYP4 ;;MEM. TYPE, BLKO4 
961 001146 $MADR4: .WORD AMADR4 ;;MEM.LAST ADDRESS 
962 001150 000300 $VECT1: .WORD AVECTZ ;; VECTOR#1 BUS PRIORITY¢1 
963 001152 000000 $VECT2: .WORD AVECT2 ;; INTERRUPT VECTOR@2BUS 
964 001154 176500 $BASE: WORD ABASE ;;BASE ADDRESS OF EQUIPMENT UNDER TEST 
965 001156 000000 $DEVM: WORD ADEVM ;;DEVICE MAP 
66 001160 $ETEND 
68 \SBTTL ERROR POINTER TABLE 
970 ;#THIS TABLE ORMATION FOR EACH ERROR THAT CAN OCCUR. 
971 ;&THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
972 ‘sLOCATION $ITEMB. NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
973 ;#NOTEL: IF $ IS 0 THE ONLY PERTINENT DATA IS ($ERRPC). 
jdm ;*NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
976 * EM ; POINTS TO THE ERROR MESSAGE 
977 ;* OH ;:POINTS TO THE DATA HEADER 
978 : OT ;;POINTS TO THE DATA 
979 - OF ;;POINTS TO THE DATA FORMAT 
982 001160 $ERRTB 


001160 000020 * BLKW 20 ,THIS BLOCK OF 16 LOCATIONS IS HERE TO PACIFY SYSMAC 


;"TEST@ ERR 
;STESTN, SERRPC ,CTCSR 


981 

983 

985 

= 

989 001220 016010 EMS ;SLU1_TCSR DONE NOT SET WITH RESET 
Ser 73 bite TCSR" 

992 

993 





He 


SEQ 0020 
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994 001230 016052 EM6 4SLU1_RCSR DID NOT RETURN SSYNC 

995 001232 024756 DH6 ;"TEST# ERR PC RCSR” 

996 001234 025522 OT6 ;STESTN, $ERRPC ,CRCSR 

pb 001236 000000 0 

999 001240 016111 EM? ;SLU1_RBUF DID NOT RETURN SSYNC 

1000 001242 025003 DH? ;"TEST#@ ERR PC RBUF” 

1001 001244 025532 OT? | STESTN, SERRPC, CRBUF 
1s 001246 000000 0 
1s 001250 000004 .BLKW 4 ;MORE PACIFICATION 
1006 
1007 001260 016150 EMi1 ;"CAN NOT SET BIT2 OF SLU1 TCSR” 
1008 001262 024731 DHS S“TEST# ERR PC TCSR” 
1009 001264 025512 DTS ; STESTN, $ERRPC ,CTCSR 
Freres arin ' 
.ore 001270 000004 .BLKW 4 ;STILL MORE PACIFICATION 
1014 
1015 001300 016206 EM13 ;"RESET DID NOT CLEAR BIT2 OF SLUI TCSR” 
1016 001302 024731 DHS S“TEST# ERR PC TCSR” 
1017 001304 025512 OTS ; STESTN, $ERRPC ,,CTCSR 
1ose 001306 000000 0 
1020 001310 016254 EM14 ;"BIT6 OF SLUI TCSR NOT CLEAR AFTER RESET 
1021 001312 024731 DHS ;“TEST@ ERR PC TCSR” 
1022 001314 025512 DTS ; $TESTN, SERRPC,,CTCSR 
ee 001316 000000 0 
1025 001320 0163524 EM15 ;"SLU1 XMIT INTERRUPTED WITH PRIORITY 7" 
1026 001322 024731 DHS ;"TEST® ERR PC TCSR” 
1027 001324 025512 DTS ; ; STESTN, SERRPC ,CTCSR 
pe 001326 000000 0 
1030 001330 016372 EM16 ;"CAN NOT SET BIT6 OF SLUI TCSR” 
1031 001332 024731 DHS ;*TEST@ ERR PC TCSR* 
1032 001334 0255i2 OTS ; ; STESTN » 7ERRPC ,,CTCSR 
p34 001336 000000 0 
1035 001340 016430 EM17 ;"CAN NOT CLEAR BIT6 OF SLU1 TCSR" 
1036 001342 024731 DHS S“TEST@ ERR PC TCSR* 
1037 001344 025512 OTS ;STESTN, $ERRPC ,CTCSA 
pe 001346 000000 0 
1040 0013550 016470 EM20 ;"RESET DID NOT CLEAR BIT6 OF SLU1 TCSR” 
1041 001352 024731 DHS ;"TEST@ ERR PC T 
1042 001354 025512 DTS ;STESTN, SERRPC ,CTCSR 
taas 001356 000000 0 

1045 001360 016536 EM21 ;"BIT6 OF SLUL RCSR NOT CLEAR AFTER RESET" 
1046 001362 024756 DH6 ; "TEST@ ERR PC RCSR" 

1047 001364 025522 DT6 ; $TESTN, $ERRPC, 

pee 001366 000000 0 





Fs ssrssanreesseionieeemetsengpenlinlicnonmatsitingss 


HK 


Ie 
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ERROR POINTER TABLE 


EM22 
DH6 
DT6 
0 
EM23 
DT6 


;"SLU1 RCVR INTERRUPT WITH PRIORITY 7” 
S“TEST® ERR PC RCSR” 
;STESTN, $ERRPC ,CRCSR 


;"CAN NOT SET BIT6 OF SLU1 RCSR” 
S“TEST# ERR PC RCSR” 
;STESTN, $ERRPC ,CRCSR 


; "CAN NOT CLEAR BIT6 OF SLU1 RCSR” 
S“TEST# ERR PC RCSR” 
; STESTN, $ERRPC , CRCSR 


;"CAN NOT CLEAR BIT6 OF SLU1 RCSR WITH RESET2 
“TESTS ERR PC RCSR” 
; STESTN, $ERRPC , CRCSR 


;"SLUL RE 
;"TEST@ ERR PC RCSR” 
; $TESTN, $ERRPC,CRCSR 


; "RESET DID NOT CLEAR SLU1 RCVR DONE” 
;"TEST#@ ERR PC RCSR" 
;$TESTN, SERRPC ,CRCSR 


Py SLU1 RBUF DID NOT CLEAR RCVR DONE” 
# ERR PC RCSR” 


“TEST@ 
: ;STESTN, SERRPC , CRCSR 


;SLU2 TCSR DID NOT RETURN SSYNC 
;"TEST@ ERR PC _TCSR® 
;STESTN, $ERRPC , TCSR 


;SLU2_TBUF DID NOT RETURN SSYNC 
;"TEST# ERR PC TBUF" 
| STESTN, $ERRPC , TBUF 


;"SLU2 TCSR DONE NOT CLEARED WITH TBUF FULL” 
:“TEST# ERR PC TCSR® 
;STESTN, $ERRPC, TCSR 


;"SLU2 TCSR DONE NOT SET AFTER TRANSMIT" 
S“TEST# ERR PC TCSR" 
;STESTN, SERRPC, TCSR 


;"SLU2 TCSR DONE NOT SET WITH RESET" 





Je 
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1i 


024731 
025542 


020203 
024731 


MACY11 30(1046) 24-MAR-86 
ERROR PO TABLE 


DT31 
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s"TEST#@ ERR PC_ TCSR” 
; $TESTN,ERRPC, TCSR 


;"SLU2 RCSR DID NOT RETURN SSYNC” 
S“TEST# ERR PC_ RCSR” 
;STESTN, ERRPC ,RCSR 


;SLU2_RBUF DID NOT RETURN SSYNC” 
;"TEST@ ERR PC_ RBUF” 
;STESTN, ERRPC , RBUF 


;"BITO OF SLU2 TCSR NOT CLEAR AFTER RESET” 
;"TEST@ ERR PC TCSR 
;STESTN, $ERRPC, TCSR 


;"CAN NOT SET BITO OF SLU2 TCSR” 
;“TEST# ERR PC T 
;STESTN, $ERRPC, TCSR 


;“CAN NOT CLEAR BITO OF SLU2 TCSR” 
;“TEST# ERR PC TCSR 
;STESTN, $ERRPC, TCSR 


;"RESET DID NOT CLEAR BITO OF SLU2 TCSR” 
;"TEST@ ERR PC TCSR 
; $STESTN, $ERRPC, TCSR 


;"BIT6 OF SLU2 TCSR NOT CLEAR AFTER RESET2 
;"TEST@ ERR PC TCSR 
; STESTN, SERRPC , TCSR 


;"SLU2 XMIT INTERRUPTED WITH PRIORITY 7" 
:TEST# ERR PC TCSR 
| STESTN, $ERRPC, TCSR 


;"CAN NOT SET BIT6 OF SLU2 TCSR” 
;*TEST@ TCSR 
;STESTN, SERRPC , TCSR 


;"CAN NOT CLEAR BIT6 OF SLU2 TCSR® 
;“TEST# ERR PC TCSR 
 STESTN, SERRPC, TCSR 


; "RESET DID NOT CLEAR BIT6 OF SLU2 TCSR” 
;"TEST® ERR PC TCSR 


ae ee Qe 


SEQ 0022 


-_ 


Ke 







SEQ 0023 
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001654 025542 DT31 + $TESTN, $ERRPC, TCSR 
sins 001656 000000 0 
1165 001660 020251 EMS1 ;"BIT6 OF SLU2 RCSR NOT CLEAR AFTER RESET” 
1166 001662 024756 DH6 "TESTO ERR PC RCSR” 
1167 001664 025562 DT36 ;STESTN, ERRPC ,RCSR 
or 001666 000000 0 
1170 001670 0203521 EMS2 ;"SLU2 RCVR INTERRUPT WITH PRIORITY 7” 
1171 001672 024756 DH6 sTEST# ERR PC_ RCSR” 
1172 001674 025562 DT36 ; STESTN, ERRPC ,RCSR 
a5 001676 000000 0 
1175 001700 020365 EMSS ; "CAN NOT SET BIT6 OF SLU2 RCSR” 
1176 001702 024756 DH6 S“TEST® PC_ RCSR” 
1177 001704 025562 D0T36 ; STESTN,ERRPC, RCSR 
toe 001706 000000 0 
1180 001710 020423 EMS4 ;"CAN NOT CLEAR BIT6 OF SLU2 RCSR” 
1181 001712 024756 DH6 S“TEST® PC_ RCSR” 
1182 001714 025562 DT36 ; STESTN, ERRPC ,RCSR 
Hr 001716 000000 2 
1185 001720 020463 EMSS ;"CAN NOT CLEAR BIT6 OF SLU2 RCSR WITH RESET2 
1186 001722 024756 DH6 | “TEST@ ERR PC_RCSR” 
1187 001724 025562 DT36 ; ; STESTN, ERRPC ,RCSR 
ares 001726 000000 0 
1190 001730 020536 EMS6 ;"SLU2 RECEIVER DONE NEVER SET” 
1191 001732 024756 DH6 :"TEST@ ERR PC_RCSR” 
1192 001734 025562 DT36 ; $TESTN,ERRPC, 
pot 001736 000000 0 
1195 001740 020573 EMS7 ; "RESET DID NOT CLEAR SLU2 RCVR DONE” 
1196 001742 024756 DH6 ;"TEST@ ERR PC_RCSR” 
1197 001744 025562 DT36 ; $STESTN, ERRPC, 
to 001746 000000 0 
1200 001750 0206356 EM60 ;"READING SLU2 RBUF DID NOT CLEAR RCVR DONE“ 
1201 001752 024756 DH6 ;“TEST@ ERR PC_ RCSR” 
1202 001754 025562 DT36 ;STESTN, ERRPC ,RCSR 
1203 001756 000000 0 
1205 001760 020710 EM61 ;LKS DID NOT RETURN SSYNC 
1206 001762 025055 DH61 ;"TEST@ ERR PC LKS“ 
1207 001764 025602 DT61 ;STESTN, ERRPC,.LKS 
1208 001766 000000 0 
1210 001770 020741 EM62 ;"BIT6 OF LKS NOT CLEAR AFTER RESET“ 
1211 001772 025055 DH61 ;"TEST@ LKS“ 
1212 001774 025602 DT61 ;STESTN, SERRPC ,LKS 
oF 001776 000000 0 
1215 002000 021003 EM63 ;"LKS INTERRUPT WITH PRIORITY 7" 
1216 002002 025055 DH61 S*TEST@ ERR PC LKS” 


1217 002004 025602 DT61 ;STESTN, $ERRPC,.LKS 





Le 
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1218 
19 


1251 


1240 
1242 
1244 
1246 

5 
1250 
1252 
1253 
1254 
1255 
1256 
1257 
1258 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 
1269 
1270 
1271 
1272 
1273 


24-MAR-86 09: 


000000 
021041 
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;"CAN NOT SET BIT6 OF LKS” 
LKS” 


;“TEST# 
; STESTN, SERRPC, LKS 


;"CAN NOT CLEAR BIT6 OF LKS” 
“TEST® ERR PC LKS” 
; STESTN, $ERRPC,LKS 


; "RESET DID NOT CLEAR BIT6 OF LKS” 
S “TESTO ERR PC LKS” 
; STESTN, $ERRPC ,LKS 


;"BIT7 OF LKS NOT SET AFTER RESET2 
el ERR PC LKS” 


;"CAN NOT CLEAR BIT7 OF LKS” 
;“TEST® ERR PC LKS” 
;$TESTN, $ERRPC ,LKS 


;"BIT7 OF LKS DOES NOT SET” 
;“TEST@ ERR PC LKS” 
;STESTN, $ERRPC ,LKS 


; $TESTN, $ERRPC , $GDADR, $BDADR , $GDDAT , $BDDAT 


;THE LAST IN A LONG LINE OF PACIFICATION 


;"SLU1 XMIT INTERRUPTS WHEN DISABLED” 
;“TEST# ERR PC TCSR" 
| STESTN, $ERRPC,CTCSR 


;"SLU1 XMIT DID NOT INTERRUPT“ 
;*TEST@ ERR PC TCSR* 
;STESTN, $ERRPC ,CTCSR 


;"SLU1 T INTERRUPT AT PRIORITY 7” 
TEST ER ERR PC TCSR” 
; STESTN, SERRPC, CTCSR 


;"SLU1 XMIT INTERRUPTS WITH ENABLE CLEAR” 


SEQ 0024 


ANOTHER 





Me 
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SEQ (25 
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NTER TABLE 














I60.P11 24-MAR-86 09:57 ERROR POI 
1274 002142 024731 DHS ;“TEST@ ERR PC TCSR” 
1275 002144 025512 OTS ; $TESTN, $ERRPC ,CTCSR 
1208 002146 000000 0 
1278 002150 021577 EM100 ;"SLU1 XMIT DID NOT INTERRUPT” 
1279 002152 024731 DHS "TESTS ERR PC TCSR” 
1280 002154 025512 DTS ;$TESTN, $ERRPC ,CTCSR 
1261 002156 0 
1283 002160 0216335 EMi01 ;"SLUL XMIT RE-INTERRUPTED” 
1284 002162 924731 DHS ;"TEST@ ERR PC TCSR” 
1285 002164 025512 OTS ; STESTN, SERRPC ,CTCSR 
1 002166 000000 0 
1288 002170 021664 EM102 ;"LOADING SLU1 TBUF DID NOT CLEAR INTERRUPT” 
1269 002172 024731 DHS "TESTS ERR PC TCSR” 
1290 002174 025512 DTS ;  STESTN, $ERRPC ,CTCSR 
es 002176 0 
1293 002200 021736 EM103 
1294 002202 024756 DH6 
1295 002204 025522 DT6 
ES 002206 000000 0 
1298 002210 022005 EM104 
1299 002212 024756 DH6 
1300 002214 025522 DT6 
eos 002216 000000 0 
1303 002220 022041 EM105 
1304 002222 024756 DH6 
1305 002224 025522 OT6 
Eo 002226 000000 0 
1308 002230 022104 EM106 
1309 002232 024756 DH6 
1310 002234 025522 OT6 
+as3 002236 000000 0 
1313 002240 022165 EM107 es RCVR DID NOT INTERRUPT“ 
1314 002242 024756 DH6 ;"TEST@ ERR PC RCSR” 
1315 002244 025522 OT6 ; $STESTN, SERRPC ,CRCSR 
136 002246 000000 0 
1318 002250 022221 EM110 “feet RECEIVER ace INTERRUPTED” 
1319 002252 024756 DH6 ;  TESTN, SERRPE @ ERR PE. CRESR 
1320 002254 025522 OT6 
pot 002256 000000 0 
1323 002260 022256 EM111 ;"SLU1 READING RBUF DID NOT CLEAR INTERRUPT” 
1324 002262 024756 DH6 ;“TEST# ERR PC RUSR” 
1325 002264 025522 OT6 i$ $TESTN, $ERRPC,,CRCSR 
i. 002266 000000 0 
1328 002270 022330 EM112 ; "RESET DID NOT CLEAR SLU1 RCVR INTERRUPT" 
1329 002272 024756 DHE ;*TEST® ERR PC RCSR* 








Ne 
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025522 


DT6 

0 
EM113 
DH6 
DT6 

0 


EM124 
DHS 
DT31 
0 
EM125 
DT36 
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ERROR POINTER TABLE 


; $TESTN, $ERRPC ,CRCSR 


;"SLU1 ‘OR’ FLAG DID NOT SET” 
; "TEST@ ERR RCSR” 
; $TESTN, $ERRPC ,CRCSR 


;"SLU1 ‘ERROR’ NOT SET WITH ‘OR’ FLAG” 





U2 XMIT INTERRUPTS WHEN DISABLED” 
T@ ERR PC TCSR” 
iaTESTe SERRPC , TCSR 








;"SLU2 XMIT DID 
;"TEST#@ ERR TCSR” 
;$TESTN, » TCSR 


;"SLU2 XMIT RE-INTERRUPTED” 
“Teste ERR PC TCSR" 
; $STESTN, $ERRPC, TCSR 


; "LOADING SLU2 TBUF DID NOT CLEAR INTERRUPT” 
;"TEST@ ERR PC TCSR" 
; STESTN, SERRPC, TCSR 


;"SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR” 
;"TEST@ ERR PC RCSR” 
;STESTN, $ERRPC ,RCSR 


BS 


SEQ 0027 
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a ; 

1388 002430 023140 EM126 ;"SLU2 RCVR DID NOT INTERRUPT” 

1389 0024 024756 s "TE RCSR” 

1390 0024 025562 DT36 ; STESTN, SERRPC, RCSR 

Eee 002436 

1393 002440 023174 EM127 ;"SLU2 RCVR INTERRUPTS AT PRIORITY 7” 

1394 002442 024756 “TESTS ERR PC SR” 

1395 002444 025562 DT36 | STESTN, SERRPC, RCSR 

ee ee 

1398 002450 023237 Emi 50 ;"SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR” 

1399 002452 024 DH6 ;“TEST@ ERR PC RCSR” 

1400 002454 025562 DT36 SSTESTN, SERRPC ,RCSR 

i402 ‘ 

1403 002460 023320 EM131 ;"SLU2 RCVR DID NOT INTERRUPT” 

1404 002462 024756 DH6 “TESTS ERR PC RCSR” 

1405 002464 025562 DT36 ; STESTN, $ERRPC ,RCSR 

 penthewces 7 

1408 002470 023354 EM132 ;"SLU2 RECEIVER RE-INTERRUPTED” 

1409 002472 024 DH6 S“TEST@ ERR PC RCSR” 

1410 002474 025562 DT36 s STESTN, $ERRPC ,RCSR 

ai 002476 0 

1413 002500 023411 EM133 ;"SLU2 RBUF 

1414 002502 024756 DH6 ;TEST@ ERR PC 

1415 002504 025562 DT36 ; $TESTN, $ERRPC ,RCSR 

Berwin , 

1418 002510 023463 EM134 ; "RESET 

1419 002512 024756 DH6 ;"TEST@ 

1420 002514 025562 DT36 ; $TESTN, 

Beaten 

1423 002520 023533 EM135 ;"SLU2 

1424 002522 024756 ;"TEST@ 

1425 002524 025562 DT36 ; $TESTN, $ERRPC, 

Ps 002526 

1428 002530 023566 EM136 “SLU2 

1429 002532 024756 ;"TEST@ ERR 

1430 002534 025562 DT36 ; $TESTN, $ERRPC .RCSP 

— esenataeenae 

1433 002540 023632 EM137 ;"SLU2 BREAK DID NOT TRANSMIT ALL ZEROES” 

1434 002542 025223 DH13 sTEST@ ERR PC RCSR DATA” 

1435 002544 025644 D0T137 ; $STESTN, $ERRPC ,RCSR, $8DDAT 

Pe 002546 000000 0 

1438 002550 023701 EM140 ; "BREAK DID NOT SET FRAMING ERROR" 

1439 002552 024756 DH6 "TESTS ERR PC RCSR" 

1440 002554 025522 .~ ;STESTN, SERRPC, RCSR 








C3 


SEQ 0028 
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1442 | 
1443 002560 023741 EM141 ;"SLU2 ‘ERROR’ NOT SET WITH ‘FR’ FLAG” 
1444 002562 024756 DH6 “TESTS ERR PC RCSR” 
1445 002564 025562 DT36 ; STESTN, $ERRPC ,RCSR 
Pry 002566 000000 0 
1448 002570 024005 EM142 ;"DATA COMPARE ERROR WITH CABLE” 
1449 002572 025260 DH142 S"TEST# ERR PC RCSR GOOD BAD 
1450 002574 025656 DT142 ; STESTN, $ERRPC ,RCSR ,GD ,BD 
1tas 002576 000000 | 0 
1453 002600 024043 EM143 ;"RTC_INTERRUPT AT PRIORITY 7” 
1454 002602 025055 DH61 ;“TEST# # ERR PC LKS” 
1455 002604 025602 DT61 ; STESTN, SERRPC ,LKS 
pes 002606 000000 0 
1458 002610 024077 EM144 “RTC_INTERRUPTS WHEN DISABLED” 
1459 002612 025055 OH61 s"TEST® ERR PC LKS” 
1460 002614 025602 DT61 ;STESTN, $ERRPC ,LKS 
pee 002616 000000 0 
1463 002620 024134 EM145 ;"RTC_ INTERRUPT DID NOT OCCUR” 
1464 002622 025055 DH61 ; “TEST@ ERR PC LKS” 
1465 002624 025602 OT61 ;STESTN, $ERRPC,LKS 
ee ee ; 
1468 002630 024170 EM146 ;"RTC INTERRUPT DID NOT OCCUR” 
1469 002632 025055 DH61 ;"TEST@ ERR PC LKS” 
1470 002634 025602 DT61 ;STESTN, SERRPC .LKS 
Plt 002636 000000 0 
1473 002640 024224 EM147 ;"RTC DOUBLE INTERRUPT” 
1474 002642 025055 DH61 ;"TEST@ ERR PC LKS” 
1475 002644 025602 DT61 : ;STESTN, SERRPC ,LKS 
ple 002646 000000 0 
1478 002650 024251 EM150 ;"RESET DID NOT CLEAR RTC INTERRUPT” 
1479 002652 025055 DH61 ;"TEST@ ERR PC LKS” 
1480 002654 025602 DT61 ;STESTN, SERRPC,LKS 
Pee 002656 000000 0 
1483 002660 024313 EMi51 "RTC INTERRUPT DID NOT CLEAR WITH BIT? OF LKS” 
1484 002662 025055 DH61 sWTEST® ERR PC LKS” 
1485 002664 025602 DT61 ;STESTN, $ERRPC ,LKS 
1486 002666 000000 0 
1488 
1489 002670 024422 EM153 ;"SLU1 RECEIVER STATUS ERROR" 
1490 002672 025157 DH115 ;“TEST@ ERR BAD" 
1491 002674 025630 O0T115 ;STESTN, $ERRPC ,CRCSR, $GDDTA, $BDDAT 
ae 002676 000000 0 
1494 002700 024455 EM154 SLU2 RECEIVER STATUS ERROR 
1495 002702 025260 DH142 ; *TESTN GOOD 


ERR PC BAD" 
1496 002704 025656 ‘tae ; STESTN, SERRPC, RCSR, $GDDAT , $BDDAT 








DS 
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1499 
1500 002710 024545 EM156 ;"SLU1 DATA or ERROR IN EXERCISER” 
1501 002712 025157 DH115 STEST@ GOOD BAD” 
1502 002714 0256350 OT115 ; STESTN, SERRPC, CRCSR ,GD BD 
tans 002716 000000 0 
1505 002720 024612 EM157 ; "INCORRECT RECEIVE COUNT SLU2 
1506 002722 025361 DH155 TESTS ERR PC RCSR TRANS RCV” 
1507 002724 025670 D0T157 sSTESTN, $ERRPC ,RCSR, XMTCT2,RCVCT2 
tae 002726 000000 0 
1510 002730 024647 EM160 ;"SLU2 DATA COMPARE ERROR IN EXERCISER” 
1511 002732 025260 DH142 “TESTS ERR PC RCSR GOOD BAD” 
1512 002734 0254656 0T142 ; STESTN, $ERRPC ,RCSR,GD,BD 
ta, 002736 000000 0 
1515 002740 024714 EM161 ;"TRAP CATCHER” 
1516 002742 025425 DH161 ;“TEST@ ERR PC OLDPC TRAP ADR” 
1517 002744 025704 DT161 ;STESTN, $ERRPC , OLDPC ,BDVECT 
126 002746 000000 0 
tase ;sREGISTER ADDRESSES OF INTERNAL ON BOARD OPTIONS 
1522 002750 176500 RCSR: .WORD 176500 ;SLU2 COMMAND/STATUS REGISTER 
1523 002752 176502 RBUF: .WORD 176502 ;SLU2 
1524 002754 176504 TCSR: .WORD 176504 ;SLU2 TRANSMITTER COMMAND/STATUS REGISTER 
1525 002756 176506 TBUF: .WORD 176506 ;SLU2 TRANSMITTER 
1526 002760 177560 CRCSR: 177560 ;SLUI RECEIVER COMMAND/STATUS REGISTER 
1527 002762 177562 CRBUF: 177562 ;SLU1 RECEIVER 
1528 002764 177564 CTCSR: 177564 ;SLU1 TRANSMITTER COMMAND/STATUS REGISTER 
1529 002766 177566 CTBUF: 177566 ;SLUL TRANSMITTER 
13ae 002770 177546 LKS: -WORD 177546 ;LTC COMMAND/STATUS REGISTER 
1532 
ta ;VECTOR ADDRESSES FOR ON BOARD OPTIONS 
1535 002772 000300 RVECT: .WORD 300 
1536 002774 000302 RPSW: .WORD 302 
1537 002776 000304 TVECT: .WORD 304 
1538 000306 WORD 306 
1539 003002 000060 CRVECT: 60 ;sRECEIVER INTERRUPT VECTOR 
1540 003004 000062 62 
1541 3006 000064 CTVECT: 64 ; TRANSMITTER INTERRUPT VECTOR 
1542 003010 000066 CTPSW: 66 
1543 000100 RTCVT: .WORD 100 
teen 003014 000102 R -WORD 102 
1546 003016 005037 001102 START: CLR $FATAL ;CLEAR ERROR NO. 
1547 003022 005037 001100 CLR $MSGTYP ;CLEAR MESSAGE TYPE 
1548 003026 005037 001104 CLR $TESTN ;CLEAR TEST NO. 
eat Cores 005037 001156 , CLR $DEVM ;CLEAR FLAGS INDICATING DEVICES UNDER TEST 
1551 -SBTTL_ INITIALIZE THE COMMON TAGS 
1552 ;;CLEAR THE COMMON TAGS ($CMTAG) 


AREA 
1553 003036 012706 001000 MOV #$CMTAG ,R6 ;:FIRST LOCATION TO BE CLEARED 





ES 
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022706 
001374 
012706 


012737 


001040 
001000 
013114 
000340 
012420 
000340 
015326 
000340 
012736 
000340 
012270 
001072 
000001 


003156 
003164 


177570 
177570 
177777 
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INITIALIZE THE COMMON TAGS 


MOV $1000, SP 
s sINITIALIZE A FEW VECTORS 


;;CLEAR MEMORY LOCATION 


;;LOOP BACK IF NO 
;s;SETUP THE STACK POINTER 


S$SCOPE,@8IOTVEC ;;I0T VECTOR FOR SCOPE ROUTINE 
MOV #340, @G10TVEC+2 ;;LEVEL 7 
HOV atERAOn BEENTVEC ssENT VE VECTOR FOR ERROR ROUTINE 
MOV oe TRAP P ,DOTRAPVEC 1 iTRAP VECTOR FOR TRAP CALLS 


CLR CR6)+ 
CMP #SWR,R6 ; ;DONE? 
BNE 


MOV $340 APVEC 
MOV #$PWRON, APPWRVEC ;;POWER FAILURE VECTOR 
MOV $340 LEVEL 7 
MOV $ENDCT ;;SETUP END-OF - AM COUNTER 
CLR $€ ;;CLEAR THE ESCAPE ON ERROR ADDRESS 
MOVB #1, $ERMAX ;;ALLOW ONE PER TEST 
MOV #. . $LPADR I TINITIALIZE THE LOOP ADDRESS FOR SCOPE 
MOV #.. $LPERR SETUP THE LOOP 
s:SIZE FOR A SWITCH REGISTER. IF NOT FOUND OR IT IS 
;:EQUAL TO A "-1", SETUP FOR A SOFTWARE SWITCH REGISTER 
MOV @SERRVEC,-(SP) ;;SAVE ERROR VECT 
MOV #64$,Q0ERRVEC  ;;SET UP ERROR VECTOR 
MOV #DSWR, SWR ;;SETUP FOR A HARDWARE SWICH REGISTER 
MOV @DDISP. DISPLAY ;;AND A HARDWARE DISPLAY REGIS 
CMP 4-1, ;3TRY TO REFERENCE 
BNE ;;BRANCH IF NO TIMEOUT TRAP 
3;AND THE HARDWARE SWR IS NOT = -1 
BR 65$ ;;BRANCH IF NO TIMEOUT 
64$: td #65$ , CSP) SET UP FOR TRAP RETURN 
65$: MOV @SWREG, SWR ;;POINT TO SOFTWARE SWR 
MOV @DISPREG, DISPLAY 
66$: MOV (SP)+, @@ERRVEG ;;RESTORE ERROR VECTOR 
CLR $PASS ;:CLEAR PASS 
BITB  @APTSIZE,SENVM ;;TEST USER SIZE UNDER APT 
BEQ 67$ ;:YES,USE NON-APT SWITCH 
~_ MOV O$SWREG, SWR VeNO,USE APT SWITCH REGISTER 
\SBTTL GET VALUE FOR SOFTWARE SWITCH REGISTER 
TST ae42 ; ;ARE WE RUNNING UNDEK XXDP/ACT? 
BNE 68$ ; ;BRANCH IF YES 
CMPB0Otié«SEN #4. ;;ARE WE RUNNING UNDER APT? 
BEQ 68$ ;;@RANCH IF YE 
CMP SUR, OSWREG ;;SOFTWARE SWITCH REG SELECTED? 
BNE 69$ ; ;BRANCH IF 
GTSUR te >;GET SOFT-SWR SETTINGS 
684: MOVB #1, $AUTOB ;;SET AUTO-MODE INDICATOR 
BIT #B1IT4!BITS, @SWR iS SLU1 TO BE TESTED 
BNE 2$ SIF EITHER BIT IS SET THEN DON'T TEST IT 
BIS @BIT0, $DEVM ;SET DEVICE FLAG TO TEST SLUI 
2$: BIT #BITSIBITS,GSWR ;1S SLU2 TO BE TESTED 
BNE SIF EITHER BIT IS THEN DON'T TEST IT 
BIS #8171, $DEVM ;SET DEVICE FLAG TO TEST SLU2 


SEQ 0030 





x. 


SEQ 0031 
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1610 003376 032777 000100 175434 33: BIT #BIT6 , SWR ;IS LTC TO BE TESTED 
1611 003404 001003 BNE 4$ ;IF BIT IS SET THEN DON’T TEST IT. 
1612 003406 052737 000004 001156 BIS #BIT2, $DEVM iSET DEVICE FLAG TO TEST LTC 
1613 003414 032737 000001 001156 4+: BIT #B1T0, $DEVM 1 UNDER TEST 
1614 003422 001002 BNE TST ‘IF YES TEST XMIT REG. BEFORE TYPING TITLE 
1615 003424 000137 003660 JMP ID -IF NO SKIP TESTS AND TYPE IT NOW 
1617 
1618 : pRERRAARARARERRAEKEERESRERERAERAERAEERESAEEEEERESEAEEEASES ESAS ESRES ES 
1619 :aTEST 1 TEST ABILITY TO ACCESS SLU1 TCSR 
1620 REKEKAKREKADKAKERAKEESEAKAKARASASCAEAKEAKEREKAEKASEEESESEEEEEAEEEEESEEEEESES 
1621 003430 000004 téT1: SCOPE 
1622 003432 012737 000001 001104 MOV #1, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
1623 003440 013703 000004 MOV —s- #4 RS Sh AVE TIMEOUT VECTOR 
1624 003444 012737 003460 000004 MOV #1$, 004 SET UP TIMEOUT VECTOR 
1625 003452 005777 177306 TST acTcsr OE ERENCE THE XMIT COMMAND/STATUS REG. 
1626 003456 000405 BR 2$ ; GO TO END OF TEST 
1627 003460 022626 1$: CMP (SP. (SP)+ s RESTORE SP AFTER TIMEOUT 
1628 004737 013304 JSR saTY4 Y REPORT A FATAL ERROR 
1629 000001 1 ‘I THE ERROR NUMBER (FROM APT LIST) 
1630 003470 000000 HALT 
1631 003472 010337 000004 2$: MOV R3,a04 ;RESTORE TIMEOUT VECTOR 
is 
1635 1 seeestaneenenee eet hia eee 
1636 2 TEST 0 ACCESS SLU1 
1637 pi ll I BB cw Sg» 4.0 Ble ~~ Pipe nA 
1638 003476 000004 is SCOPE 
1639 003500 012737 000002 001104 MOV $2, $TESTN SET TEST NUMBER IN APT MAIL BOX 
1640 003506 013703 MOV ss 4, RS ‘SAVE TIMEOUT VECTOR 
1641 003512 737 003526 000004 MOV $1$, 004 :SEI UP TIMEOUT VECTOR 

3520 177242 TST aCTBUF THE XMIT BUFFER 
1643 003524 000405 BR 2$ TO TO END OF TEST 
1644 003526 022626 1$: CMP (SP)+,(SP)+ ‘RESTORE SP AFTER TIMEOUT 
1645 003530 004737 013304 JSR PC, $ATY4 ;;ONLY REPORT A FATAL ERROR 
1646 003534 000002 2 ;S THE ERROR NUMBER (FROM APT LIST) 
1647 003536 000000 HALT 
1648 003540 010337 000004 2$: MOV R3, 004 ;RESTORE TIMEOUT VECTOR 
1650 
1651 5 ARREARS RAERESRARESERERSRERRERESESERRERESESESERERSSESR ARAL LS SS 
1652 ;aTEST 3 TEST SLUL TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 
1653 ee ee 
1654 003544 000004 ies 
1655 003546 012737 000003 001104 Sov #3, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
1656 003554 032737 000001 001120 BIT $1 BesENV ‘ARE WE RUNNING UNDER APT 
1657 003562 001405 BEQ 70$ ; THEN DO TE 
1658 003564 005737 001106 TST @esPASS -IS THIS FIRST PASS 
1659 003570 001402 BEQ 70$ SIF YES THEN DO THIS SERIES OF TESTS 
1660 003572 000137 004402 JMP SLU2RT ‘IF NO THEN SKIP THIS SERIES OF TESTS 
1661 003576 005077 177164 70$: CLR acTBUF ;LOAD XBUF 
1662 003602 105777 177156 TSTB  aCTCSR ;CHECK DONE 
1663 003606 100011 ;BR IF CLE 


IF CLEAR 
1664 ‘FILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE 
1665 ; FIRST TEST TO FAIL 











GS 
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003772 
003774 


005077 
105777 
00004 


105777 
100401 
104005 


000004 
012737 


177152 
177144 


013304 


177124 


013304 


000004 
000001 


004402 


177022 
177014 


177010 


176776 


000005 001104 


001104 
001156 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 





SEQ 0032 
33 


CLR @CTBUF +E TLL DOUBLE BUFFER 
TSTB  acTCSR 
BPL 1$ ‘BR IF CLEAR 
JSR PC, $ATY4 i ONLY REPORT A FATAL ERROR 
3 HE ERROR NUMBER (FROM APT LIST) 
HALT :TCSR” wiklt® NOT CLEARED WITH TBUF FULL 
1$: CLR RO ;CLEAR TIMER 
2$: TSTB  actTcsR s CHECK FOR XMIT DONE 
BMI ID ;IF DONE SETS, BR 10 END OF TEST 
INC RO sI TIMER 
BNE 2$ ;BR IF TIMER NOT DONE 
JSR PC, $ATY4 ; ;ONLY REPORT A FATAL ERROR 
ae tTTHE ERROR NUMBER (FROM APT LIST) 
BR TST4 ;BR TO NEXT TEST, AND SKIP THE TYPEOUT THAT FOLLOWS 
; BECAUSE OF THIS FAIL 
ID: CMP a042 , 2046 ;UNDER ACT11? 
BEQ 6$ iT YES, SKIP IDENT. TYPEOUT 
TST $PASS THIS THE FIRST PASS? 
BNE 6$ iP NOT BR TO NEXT TEST & SKIP THE IDENTIFICATION TYPEOU 
TST $DEVCT Is THIS THE of aR! SUBPASS? 
BNE 6$ NEXT TEST 
TYPE VPE PROGRAM ME OENTIPICATION 
TYPE ; TYPE NUMBER OF DEVICES UNDER TEST 
6$: 
§ s SOSESSSSRESESSSSSS SDSS SOS STERN NEN NNN ee Net eee ete eee e tee e See 
s@TEST 4 TEST THAT SLUI TCSR “DONE” SETS WITH RESET 
Fis IDI NET gta in 2 RS 
Sov 04, $TESTN s4SET TEST NUMBER IN AP T MAIL BOX 
BIT #8110, a8$DEVM THESE TESTS FOR THIS DEVICE? 
BNE 994 F YES INUE WITH TESTS 
iad JMP SLUQRT a NO GO TO START OF NEXT SET OF TESTS. 
' os TBUF ;LOAD TRANSMIT 
1$: TsTe @cTCSR sWAIT FOR DONE 
CLR SCTBUF ;LOAD SECOND BUFFER 
RESET ;CLE WITH 
TST8  acTCSR ;CHECK FOR DONE 
BMI TST5 ;BR TO NEXT TEST IF DONE SET 
ERROR 5 ;TCSR “DONE” DOES NOT SET WITH RESET 


5 | RRRREERERAREREAERERE ERASER ESERRERER EE SRSERESRERES ERA ERR ERSTE SS 
5 TEST ABILITY TO ACCESS SLU1 RCSR 
anes cieaneeeeeamEe el 


;*TEST 


#5, $TESTN 


;;SET TEST NUMBER IN APT MAIL BOX 





HS 
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004002 
004006 
004014 
004020 
004022 
004026 


013703 
012737 
005777 
000402 


022626 
104006 
010337 


104007 
010337 
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004022 
176740 


176702 


000100 
000100 


000100 


000004 


001104 


001104 
176654 
176664 


176626 


176606 
176600 


176566 


MACY11 30(1046) 24-MAR-86 
GET VALUE FOR SOFTWARE SWI 
MOV 04 ,R3 
MOV #1$ , 204 
TST @CRCSR 
BR 2$ 
1$: CMP (SP)+,(SP)+ 
ERROR 6 
2s: MOV R3 ,ae4 


10:44 PAGE 34 
TCH REGISTER 


;SAVE TIMEOUT VECTOR 

SET UP TIMEOUT VECTOR 
SS_RCSR 
382 TO END OF TEST 


snESTORE SP AFTER TIMEOUT 
;CAN NOT ACCESS RCSR 
;RESTORE TIMEOUT VECTOR 


; 
;ACCE 


5p RRRARAR ARERR RARER REAR ERASER EER EEER EERE ER EE EEE ES ESE EEEEE EEE 
TEST ABILITY TO ACCESS SLU1 
gues mcrae ncaa oni iain oe eS ee emmemmmameel 


;* TEST 6 


i$: 
2s: 


#6, $TESTN 
ate 
2$ 


$9729 Sar ae 
R3,a04 


‘Sie 
;SET 


T 
UP 


TIMEOUT 


TEST NUMBER IN APT MAIL BOX 
IMEOUT VECTOR 


VECTOR 


;ACCESS RBUF 

;BR TO END OF TEST 
;RESTORE SP AFTER TIMEOUT 
RESTORE TIMEOUT VECTOR 


5p RRREEAERREAREREREEREREEEREREEERR ERE EEREEESS ES EESESSE SESS ESEEES 
TEST THAT SLU1 BIT6C(XMIT INT EN) CAN BE SET & RESET 


TEST 7 


;* 
(2 
;3;SET TEST NUMBER IN APT MAIL BOX 


T?: 


i$: 


2$: 


3$: 


Satie BCICSR 
@CTVECT RS 
#1$ ,ACTVECT 
PC, URPSW 
340 
@BIT6, ACTCSR 
2$ 

14 

2$ 


(SP)+,CSP)+ 
iS 


#68116, ACTCSR 
sp emereen 


16 


#B81T6,aCTCSR 


SAVE 


MAKE SURE BIT 
XMIT VECTOR 
UP INTERRUPT VECTOR FOR ERROR REPORT 


UNDER TEST IS INITIALIZED 


;SET PSW TO PRIORITY=7 


;TEST BIT6 OF TCSR 
;BR IF ZERO 


;BIT6 IN TCSR NOT CLEAR AFTER RESET 


;sRESTORE SP AFTER INTERRUPT 
;XMIT INTERRUPT OCCURRED PRIO=7 
;SET BIT6 OF TCSR 


;TEST BIT6 OF TCSR 
SET 


;CANNOT SET BIT6 OF TCSR 
;CLEAR BIT6 OF TCSR 


SEQ 0033 





Lg 


SEQ 0034 

CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 35 
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1778 004176 032777 000100 176560 BIT #BIT6,@CTCSR § ;TEST BIT6 OF TCSR 

1779 004204 001401 BEQ 4$ ‘BR IF CLEAR 

1780 004206 104017 ERROR 

1781 ;CANNOT CLEAR BIT6 OF TCSR 

1783 004210 4s: 

1784 004210 052777 000100 176546 BIS #BIT6,@CTCSR  ;SET BIT6 OF TCSR 

1785 004216 000005 RESET ;CLEAR BIT6 WITH RESET 

1786 032777 000100 176536 BIT #BIT6,Q@CTCSR § ;TEST BIT6 OF TCSR 

1787 004226 001401 BEQ S$ BR IF CLE 

1789 004230 104020 ERROR 20 

1790 ;CANNOT CLEAR BIT6 OF TCSR WITH RESET 

1791 004232 010377 176550 S$: MOV R3,QCTVECT ‘RESTORE XMIT VECTOR 

1793 

1794 Jy eee OEE COE OT ant ae 

1795 SaTEST 10 TEST THAT SLUL BIT6 OF RCSR CAN BE SET & RESET 

1796 s KEKREKAAKEREAKASSAAKAKEEKEKKRERSEKAEEEEESEEESESEESEEKESEESEEEEEESEEEEESESEESES 

1797 004236 1§T10: SCOPE 

1798 004240 012737 000010 001104 MOV #10, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 

1799 004246 042 000100 176504 BIC eBIT6 ;MAKE SURE BIT UNDER TEST IS INITIALIZED 

1800 004254 017703 176522 MOV @CRVECT RZ ‘SAVE RECEIVE VECTOR 

1801 004260 012 004310 176514 MOV #1$ , @CRVECT ;SET UP INTERRUPT VECTOR FOR ERROR REPORT 

1802 004266 004737 012356 JSR PC URPSH ‘SET PSW TO PRIORITY=7 

1804 004a74 032777 000100 176456 BIT @BIT6,8CRCSR § ; TEST BIT6 OF RCSR 

1805 004302 001404 BEQ 2$ 

1806 004304 104021 ERROR 21 

1807 :BIT6 OF RCSR NOT CLEAR AFTER RESET 

1808 004306 000402 BR 2$ 

1810 004310 022626 1$: CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 

1811 004312 104022 ERROR 22 

1812 sRCVR INTERRUPT WITH PRIORITY=7 

1814 004314 052 000100 176436 24: BIS 2@I1T6,8CRCSR § ;SET BIT6 OF RCSR 

1815 004322 032777 000100 176430 BIT @BIT6,@CRCSR § ;TEST BIT6 OF RCSR 

1816 004330 001001 BNE 3$ ;BR, IF SET 

1818 004332 104023 ERROR 23 

1819 ;CANNOT SET BIT6 OF RCSR 

1821 004334 042 000100 176416 34: BIC @BIT6, OCRCSR ;CLEAR BIT6 OF RCSR 

1822 032777 000100 176410 BIT 116, sTEST BIT6 OF RCSR 

1823 004350 001401 BEQ 4$ ;BR, IF CLEAR 

1825 004352 104024 ERROR 24 

1826 ;CANNOT CLEAR BIT6 OF RCSR 

1828 004354 A$: 

1829 004354 777 000100 176376 BIS #BIT6,@CRCSR SET BIT6 OF RCSR 

1830 004362 RE BIT60F RCSR WITH RESET 

1831 364 032777 000100 176366 BIT @BIT6,@CRCSR ; TEST BIT6 OF RCSR 

1832 004372 001401 BEQ S$ ‘BR, IF CLEAR 





JS 
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1834 004374 104025 
1835 
1836 004376 010377 
1837 
1838 
1839 004402 
1840 
1841 
1842 
1843 
1844 004402 000004 
1845 004404 012737 
1846 004412 032737 
1847 004420 001002 
1848 004422 0001357 
1849 004426 
1850 004426 013703 
1851 004432 012737 
1852 004440 005777 
1853 004444 000402 
1854 004446 022626 
1855 004450 104031 
1856 004452 010337 
1857 
1858 
1859 
1860 
1861 
1862 
1863 004456 000004 
1864 012737 
1865 013703 
1866 004472 012737 
1867 004500 
1868 004504 
1869 004 
1870 004510 104032 
1871 004512 010337 
1872 
1873 
1874 
1875 
1876 
1877 004516 
1876 004520 012737 
1879 004526 032737 
1880 004534 001403 
1881 004536 
1882 004542 001022 
1883 004544 
1884 004544 005077 
1885 004550 105777 
1886 004554 100006 
1887 
1888 
1889 004556 005077 


176400 


000011 


176310 


000004 


176252 


000013 
000001 
001106 


176206 
176200 


176174 


001104 


001104 
001120 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 36 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


ERROR 25 
;CANNOT CLEAR BIT6 OF RCSR WITH RESET 
S$: MOV R3, @CRVECT IRESTORE RECEIVE VECTOR 
SLUORT: 
5 RARER ERAAARRARREEERERERAEERERAEEAEREAEEERREREAASEERAEERAEEEES SES 
;#TEST 11 TEST ABILITY TO ACCESS SLU2 TCSR 
5 ERE AKARAERARAEEEKEREREEAEEEEREREAEEEREREEEEEEREAES ERE ESSE SS 
TSTi1: SCOPE 
MOV #11, $TESTN ;;SET TEST NUMBER IN APT MAIL BO 
BIT @BIT1,a8$DEVM 00 THESE TESTS FOR THIS DEVICE? 
BNE 99$ sF YES CONTINUE WITH TESTS 
‘ns JMP LTCRT ‘IF NO GO TO START OF NEXT SET OF TESTS. 
MOV a4 ,R3 ;SAVE TIMEOUT VECTOR 
MOV $1$. 004 ;SET UP TIMEOUT VECTOR 
TST aTCSR ;REF THE XMIT COMMAND/STATUS REG. 
BR 2$ ; GO TO TEST 
1$: CMP (SP)+,(SP)+ ;RESTORE SP AFTER TIMEOUT 
ERROR 31 :XMIT CSR ADDRESS DOES NOT RETURN SSYNC 
2$: MOV R3,004 ‘RESTORE TIMEOUT VECTOR 


5p RERAAKAEEERAAASEARAESRSSEARESEESSEREAEESAESE SSE ESAESESESESEEASESESEEE EEE 


;*TEST 12 TEST ABILITY TO ACCESS SLU2 TBUF 
Se Ne alaaernsaea enn it ti cto cate eae eemouneaes 
MOV #12, $TESTN 2} A TEST NUMBER IN APT MAIL BOX 
MOV 964 ,R3 sSAVE TIMEOUT VECT 
MOV #1$ ,a04 ;SET UP TIMEOUT VECTOR 
TST STBUF i THE BUFFER 
BR 2s ;G0 TO END OF_ TEST 
1$: CMP (SP)+,CSP)-+ ;sRESTORE SP AFTER TIMEOUT 
ERROR T ADDRESS DOES NOT REUTRN SSYNC 
2$: MOV R3, 004 ;RESTORE TIMEOUT 


ee ae nee eee SL Ue TCSR BITTCDONE) CLEARS WEN XBUF IS LOA 
1 ST 


;*TEST 
Hen ee etna car sta acc ana Gan ieee eneramaeemaumees 


MOV #13, $TESTN s,SET TEST NUMBER IN APT MAIL BOX 

BIT #1. aesENV ;ARE WE RUNNING UNDER APT 

BEQ ;IF NO THEN DO TEST 

TST aesPASS ‘IS THIS FIRST PASS 

= BNE TST14 SIF NO THEN SKIP TO NEXT TEST 

CLR aTBUF ;LOAD XBUF 

x OR IF CLEAR 
‘FILL SECOND BUFFER, BECAUSE REFRESH COULD CAUSE 
; FIRST TEST TO FAIL 

CLR aTBUF ;FILL DOUBLE BUFFER 





SLU2 TCSR BIT7(DONE) CLEARS WHEN XBUF IS LOADED 


KS 
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1890 004562 105777 176166 
1691 004 100001 

1892 004570 104033 

1893 004572 005000 

1894 004574 105777 176154 
1895 004600 100473 

1896 004602 005200 

1897 004604 001375 

1898 004606 104034 

1899 

1900 

1901 

1902 

1903 

1904 004610 000004 

1905 004612 012737 000014 
1906 004620 032737 000001 
1907 004626 001403 
1908 004630 005737 001106 
1909 004634 001015 
1910 004636 
1911 004636 005077 176114 
1912 004642 105777 176106 
1913 004646 100375 
1914 004650 005077 176102 
1915. 004654 
1916 004656 000005 
1917 004660 105777 176070 
oe on 
1920 004666 104035 
1921 
1922 
1923 
1924 

1925 
1926 

1927 004670 000004 
1928 004672 012737 000015 
1929 004700 013703 000004 
1930 004704 012737 004720 
1931 0047 005777 176032 
sone 004716 000402 

934 004720 022626 

1935 004722 104036 

1936 004724 010337 000004 
1937 

1938 

1939 

1940 

1941 

1942 

1943 004730 

1944 004732 012737 000016 
1945 004740 013703 000004 


001104 
001120 


001104 


001104 


SEQ 0036 

MACY11 30(1046) 24-MAR-86 10:44 PAGE 37 
GET VALUE FOR SOFTWARE SWITCH REGISTER 

TSTB aTCSR ; CHECK 

BPL i$ ‘- IF 

ERROR 33 ;TCSR “DONE” NOT CLEARED WITH TBUF FULL 
1$: CLR RO ;CLEAR 
2$: TSTB aTCSR ;CHECK FOR XMIT DONE 

BMI TSTi7 ;IF DONE git BR TO NEXT TEST 

INC RO rp TIMER 

BNE 2$ BR IF TIMER NOT DONE 

ERROR 34 ;XMIT DONE BIT DOES NOT RESET AFTER TRANSMIT 


jp RERAARERERREREE RARER ER EESEEEEREAEEES EASE SE EEER SEES SEES EEE ES 
;*#TEST TEST THAT SLU2 TCSR “DONE” SETS WITH RESET 
> ‘ii us a amma nie aig yc ucunmuummanmaes 


MOV #14, $TESTN SET TEST NUMBER IN APT MAIL BOX 
BIT 1, @esENV ‘ARE WE RUNNING UNDER APT 
BEQ 70$ ;IF NO THEN DO TEST 
TST ae$sPASS ‘IS THIS FIRST PASS 
‘i BNE TST15 SIF NO THEN SKIP TO NEXT TEST 
"CLR ;LOAD TRANSMIT BUFFER 
1$: TsTB aTCSR ;WAIT FOR DONE 
CLR @TBUF ;LOAD SECOND BUFFER 
RESET ;CLEAR DONE WITH RESET 
TStB =. aC ;CHECK FOR DONE SET 
BMI TST20 ;BR TO NEXT TEST IF DONE SET 
ERROR 35 ;TCSR "DONE" DOES NOT SET WITH RESET 


eae og KY OEY 


s*#TEST 15 TY TO ACCESS SLU2 RCSR 
enna 


SCOPE 
MOV 615, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
MOVs 4: RB Sere TEREOUT VECTOR 
MOV $1$.004 ‘SET UP pret VECTOR 
TST ARCSR ;ACCESS RCSR 
BR 2$ ‘BR TO END OF TEST 
i$: CMP (SP)+,(SP)-« ;RESTORE SP AFTER TIMEOUT 
ERROR 36 ;CAN NOT ACCESS RCSR 
2$: MOV R3,a04 SRESTORE TIMEOUT VECTOR 


; ee ie TEST ABILITY 10 ACCESS ALL 


TEST ABILITY TO 
jtneesesasenensnsssenenstssnenensneauaneneaneneanencncanensssens 


MOV #16, $TESTN 
MOV a04 ,RS 


SET TEST NUMBER IN APT MAIL BOX 
‘SAVE TIMEOUT VECTOR 





& 


no | SLU LTC REPR DIAG 


JKDIBO.P 


012737 
005777 
000402 


104037 
010337 


24-MAR-86 09:57 


004760 
175774 


001106 


000004 


001104 
175610 


175620 


175562 


oe 30(1046) 24-MAR-86 10:44 


SEQ 0037 


PAGE 38 
ALUE FOR SOFTWARE SWITCH REGISTER 


MOV #1$ , 204 
TST @RBUF 
BR 2$ 
1$: CMP (SP)+,(CSP)+ 
ERROR 37 
2$: MOV R3,a04 


;SET UP TIMEOUT VECTOR 
;ACCESS RBUF 
;BR TO END OF TEST 


;sRESTORE SP AFTER TIMEOUT 
;CAN NOT ACCESS RBUF 
;RESTORE TIMEOUT VECTOR 


ti weer a7. TECT SLUD BITOCBREAK BIT) CAN BE SET & CLEARED € 
TEST 


SLU2 BITOCBREAK BIT) CAN BE SET € 


CLEARED & RESET 


OU 





;#TEST 17 
MOV #17, $TESTN 
BIC #BIT0, aTCSR 
BIT #8110, aTCSR 
BEQ i$ 
ERROR 40 

1$: BIS #B1T0,aTCSR 
BIT #B1T0,aTCSR 
BNE 2$ 
ERROR 41 

2s: BIC @BIT0,8TCSR 
BIT #8110, aTCSR 
BEQ 3$ 

3$ site 
BIT #1, @esENV 
BEQ 70$ 
TST @aes$PASS 
BNE TST20 

70$: 
BIS @B1T0,aTCSR 
RESET 
BIT @B1TO, @TCSR 
BIC @B1TO, BTCSR 


‘Bee TEST NUMBER IN APT MAIL BOX 
SURE BIT UNDER TEST IS INITIALIZED 
; CHECK BITO OF T CLEAR 


IN 
STEST BITO OF TCSR 
;BR_ IF SET 
;BITO OF TCSR WILL NOT SET 


;CLEAR BITO OF TCSR 
;TEST BITO OF TCSR 


;BITO OF TCSR WILL NOT CLEAR 


NO 
;1S THIS FIRST PASS 
;IF NO THEN SKIP TO NEXT TEST 


er BITO IN TCSR 
© WITH RESET 
TEST BITO CLEAR 


BR IF 
‘CLEAR BETO, TO PRINT ERROR 
‘RESET DID NOT CLEAR BITO OF TCSR 


De ene Ye EOE TE 
TEST THAT SET & 


;#TEST 20 


SLU2 BIT6CXMIT INT EN) CAN BE 


Ne 


MOV #20, STESTN 
BIC carte at 
MOV wovect RS 
MOV eis aT -atvecr 
JSR 

oH 40 
BIT éB8116,aTCSR 
BEQ 2$ 

44 
BR 2$ 


3;SET TEST NUMBER IN APT MAIL BOX 

;MAKE SURE BIT UNDER TEST IS INITIALIZED 

SAVE XMIT VECTOR 

;SET UP INTERRUPT VECTOR FOR ERROR REPORT 
;SET PSW TO PRIORITY=7 


;TEST BIT6 OF TCSR 
;BR IF ZERO 


;BIT6 IN TCSR NOT CLEAR AFTER RESET 





MS 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 


ESSE EGE gneHRUSUS UNO REMSNSESEoSERT cee seae ae 


BBSstes 


BRerats 





022626 
104045 


000100 
000100 


175466 


000100 
000100 


175542 
175534 


175522 
175514 
001120 


175464 
175454 


001104 
175422 


175432 


175374 


175354 
175346 


1$: CMP 


2s: BIS 


3$: BIC 


4$: BIT 


70$: 


3$: MOV 


(SP)+,(SP)+ 
45 


#BIT6,aTCSR 
ideas 


46 
#B81T6,aTCSR 


#B81T6,aTCSR 
4s 
47 


@e$PASS 

S$ 

#681IT6 ,ATCSR 
#61T6,@1CSR 
S$ 


30 
R3,@TVECT 


jp RRSRERESEESSRAEESEESESEEREEESEEEE ESOS 90994080026006904000880094 
TEST THAT SLU2 BIT6 OF RCSR CAN BE SET & RESET 
REOCESSEEEEREEESESESEESEEEDEEESSES 


s#TEST 21 


sRESTORE SP AFTER INTERRUPT 
;XMIT INTERRUPT OCCURRED PRIO=7 
;SET BIT6 OF TCSR 

;TEST BIT6 OF TCSR 

;BR, IF SET 

;CANNOT SET BIT6 OF TCSR 

;CLEAR BIT6 OF TCSR 

;TEST BIT6 OF TCSR 

;8R IF CLEAR 

;CANNOT CLEAR BIT6 OF TCSR 

;ARE WE RUNNING UNDER APT 

;IF NO THEN DO TEST 

;1S THIS FIRST PASS 

3;1F NO THEN SKIP TO END OF TEST 
set Btls OF TCSR 


; atte WITH RESET 
; TEST 6 OF TCSR 
;BR IF CLEAR 


;CANNOT CLEAR BIT6 OF TCSR WITH RESET 
sRESTORE XMIT VECTOR 





veer glam aeracmanaes 
1, $TESTN 
6, @RCSR 


21: 
BIC 
MOV 
MOV 
JSR 
BIT 


BR 
i$: CMP 
ERROR 


23: BIS 
BIT 
BNE 






RS 
#1$ ,@RVECT 
PC, WRPSH 


. 340 
aaa 


51 
2$ 
(SP)+,(SP)-« 
52 


$B81T6,@RCSR 
lies 


33SET TEST NUMBER IN APT MAIL BOX 
; SURE BIT UNDER TEST IS INITIALIZED 


ET uP INTERRUPT VECTOR FOR ERROR REPORT 
; PRIORITY=7 







SET PSW TO 
;TEST BIT6 OF RCSR 


;81T6 OF RCSR NOT CLEAR AFTER RESET 


;RESTORE SP AFTER INTERRUPT 
;RCVR INTERRUPT WITH PRIORITY=7 
;SET BIT6 OF RCSR 


;TEST BIT6 OF RCSR 
;8R, IF SET 


NS 


CJUKDIBO 11/238 SLU LTC REPR DIAG 
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2058 
2059 


2061 


: 


Panos SB ERR EESSRSESBASRRES SS eae aaSSeRARAR ORES 


104053 


175300 


000022 
175244 


175242 
175230 


000001 
001106 


175174 


175166 


001120 


175276 
175266 


001104 


001120 


SEQ 0039 
MACY11 30(1046) 24-MAR-86 10:44 PAGE 40 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


ERROR 53 | 
;CANNOT SET BIT6 OF RCSR 
3$: BIC serie: BRCSR EAR BIT6 OF RCSR 
BIT ‘TEST BIT6 OF RCSR 
BEQ ‘BR, IF CLEAR 
ERROR 54 
;CANNOT CLEAR BIT6 OF RCSR 
4$: BIT #1, @¢¢ENV ;ARE WE RUNNING UNDER APT 
BEQ $ ;IF NO THEN DO TEST 
TS @e$PASS ‘IS THIS FIRST PASS 
_ BNE -IF NO THEN SKIP TO END OF TEST 
—_ @B1T6, ARCSR ;SET BIT6 OF RCSR 
RESET -CLEAR BIT60F RCSR WITH RESET 
BIT #68116, @RCSR ;TEST BIT6 OF RCSR 
BEQ S$ . 38R, IF CLEAR 
ERROR 55 
;CANNOT CLEAR BIT6 OF RCSR WITH RESET 
S$: MOV R3, @RVECT SRESTORE RECEIVE VECTOR 


5p ERRERRRAESERERERESESESESSSEESESEESEESS O4$080$640000864080408448 
:*TEST 22 TEST THAT SLU2 RCVR DONE (7) SET & CLEAR PROPERLY 
Te gee (ne aan mene te cs eecenaat $$40000600900% 





; SET TEST NUMBER IN APT MAIL BOX 
REGISTER BEFORE TESTING 
WDONE : 
IF NOT DONE 
TIME REMAINS 
i$: RT en D 
dS Ir No THEN DO TEST 
_ NO THEN Sup | END OF TEST 
;CLEAR DONE WITH RESET 
‘CHECK FOR DONE CLEAR 
2$: 


;RESET DID NOT CLEAR RCVR DONE 
;CLEAR RECEIVER BUFFER 





B4 
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013703 
012737 
005777 
000402 
022626 
104061 
010337 


175100 


001104 


001104 
175050 
175060 


175022 


SEQ 0040 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 41 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


5p ERRRREREERARRERR EEE EEAEREERE REE AE EES EEEEEEEEEEE EEE TEESE EEE EEE ED 
TEST SLU2 THAT READING RBUF CLEARS RECEIVER DONE 


;#TEST 23 


ee 
ST23: 


1$: 


LTCRT: 


$23, $TESTN ENE T NUMBER IN APT MAIL BOX 
ORBUF NETTALIZE REGISTER BEFORE TESTING 
aTBUF TRANSMITTER 

— tA FOR RECEIVER DONE 

@RBUF , RO ;READ RECEIVE BUFFER 

@RCSR ;CHECK FOR RECEIVE DONE CLEAR 
TST24 ;BR, IF CLEAR TO NEXT TEST 


;READING RBUF DID NOT CLEAR RCVR DONE 


jp RRRERRRARREREEREAR EERE EERES EERE EEES EERE EEE SEES SEESEEEEEEES ES 
24 TEST ABILITY TO ACCESS 


I 


;*TEST 
Sc 
MOV 
BIT 
BNE 
JMP 
99$: 
MOV 
MOV 
TST 
BR 
i$: CMP 
ERROR 
2$: MOV 


$24, $TESTN :3SET TEST NUMBER IN APT MAIL BOX 
#68112, a0$DEVM THESE TESTS FOR THIS DEVICE? 

99$ F YES CONTINUE WITH TESTS 

UNIQUE iF YES CONTIN WITH TESTS teers, 
904 ,R3 ;SAVE TIMEOUT VECTOR 

$1$. 904 ;SET UP TIMEOUT VECTOR 

aks SACCESS LKS 

2$ ‘NO TIMEOUT - GR TO END OF TEST 
(SP)+,(SP)+ ;RESTORE SP AFTER TIMEOUT 

61 ;CAN NOT ACCESS LKS 

R3,004 ;RESTORE TIMEOUT VECTOR 


1 eee en tte eeeeecT IMAT BITG OF LKS CAN BE SET € ESET 


T THAT BIT6 OF LKS CAN 
1 


;*TEST 


1$: 


BIC 





SET TEST NUMBER IN APT MAIL BOX 
ir BIT UNDER TEST IS INITIALIZED BEFORE TESTING 


‘SAVE LINE CLOCK VECTOR 
‘SET UP T VECTOR FOR ERROR REPORT 
'SET PSW TO PRIORITY 7 


;TEST BIT6 OF LKS 
;BIT6 OF LKS NOT CLEAR AFTER RESET 


sRESTORE SP AFTER INTERRUPT 
;LKS INTERRUPT WITH PRIORITY=7 





C4 
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SEQ 0041 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 42 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


2170 005760 052777 000100 175002 2%: BIS #68116, @LKS ;SET BIT6 OF LKS 

2171 005766 032777 000100 174774 BIT #68116, aLKS sTEST BIT6 OF LKS 

2172 005774 001001 BNE 3$ ;BR IF SET 

2174 005776 104064 ERROR 64 

2175 ;CANNOT SET BIT6 OF LKS 

2177 006000 042 000100 174762 3: BIC #BIT6, aLKS ;CLEAR BIT6 OF LKS 

2178 006006 032777 000100 174754 BIT #8116, aLKS ;TEST BIT6 OF LK 

2179 006014 001401 BEQ 43 

2180 006016 104065 65 

2181 ;CANNOT CLEAR BIT6 OF LKS 

2182 006020 032737 000001 001120 4%: BIT $1, QO$ENV ;ARE WE RUNNING UNDER APT 

2183 006026 001403 BEQ VIF NO THEN DO TEST 

2184 006030 005737 001106 TST aesPASS ‘IS THIS FIRST PASS 

2185 006034 001011 BNE S$ ;IF NO THEN SKIP TO END OF TEST 

2186 006036 70$: 

2187 006036 052777 000100 174724 BIS #B1T6,@LKS ;SET BIT6 OF LKS 

2188 006044 RESET ;CLEAR BIT6 OF LKS WITH RESET 

2189 006046 032777 000100 174714 BIT #B1T6, @LKS ‘TEST BIT6 OF LKS 

2190 006054 001401 BEQ S$ ;BR IF CLEAR 

2192 006056 104066 ERROR 66 

2193 ;CANNOT CLEAR BIT6 OF LKS WITH RESET 

2194 006060 010377 174726 S$: MOV R3,ORTCVT ‘RESTORE LINE CLOCK VECTOR 

2195 006064 BR UNIQUE ;G0 TO NEXT TEST 

2197 

2198 177560 DADTBL: .WORD 177560 

2199 006070 177564 “WORD 177564 

2200 006072 176500 "WORD 176500 

2201 006074 176504 “WORD 176504 

2202 006076 177564 TBLEND: .WORD 177564 

2204 

2205 006100 UNIQUE : 

2207 5p REREREEEREEEERESEEEESRERESESEERESEESEEESEESESESEEESESERESEEESED 

2208 ;#TEST T 

oo 006100 hs : —e-gagae" *  ascrtetertne estat SHSKASESRESESSSSSSEAESSSKESSLSRAESSEEESSL 

2211 006102 012737 000026 001104 MOV $26, $TESTN :;SET TEST NUMBER IN APT MAIL BOX 

2212 006110 032737 000001 001120 BIT $1, SOsENV RUNNING UNDER APT 

2213 006116 001403 BEQ 70$ ;IF NO THEN DO TEST 

2214 006 005737 001106 TST aesPASS ;IS THIS FIRST PASS 

2215 006124 001056 - BNE TST27 ;IF NO THEN SKIP TO NEXT TEST 

2217 006126 012737 000340 177776 MOV $340,PS ;WE WILL BE PLAYING WITH BIT6 

2218 ;S0 LOCK OUT EXTR S 

2219 006134 012700 006066 MOV @DADTBL ,RO ‘GET LOCATION OF FIRST REGISTER ADDRESS 

2220 006140 012703 006066 1$: MOV @DADTBL ,R3 sMAKE _RS_ POINT TO LOCATION OF FIRST 
;REGI 

2222 006144 012701 000005 MOV #5,R1 ;SET LOOP TO CLEAR ALL REG. 

2223 006150 0050 2$: CLR acR3)- ;CLEAR A S 

2224 006152 077102 S08 Ri,2$ ;LOOP UNTIL ALL REGISTERS CLEARED 

2225 006154 012770 000100 000000 MOV #B1T6,aCRO) ‘SET TEST BIT IN DEVICE REGISTERS 
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peg Aa 
0 


006076 


001020 
001022 
000000 


006414 
000100 


001024 
001026 


001104 
001120 


001156 


174424 
174434 


174404 
174354 


MACY11 30(1046) MAR - 10; 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


3$: 
4$: 


5$: 


6$: 


7$: 
8$: 


SLUIIT: 


MOV 


4- 86 


#DADTBL ,R1 
#B1T6,a(R1)-+ 


AOA 
i 
wr 

‘ 
o>~ 
xz 
~— 
wv 


Ri 


= 
p* 
— 


PAGE 43 


;GET LOCATION OF FIRST _ ADDRESS 

;SET_UP TEST L 

TS TEST BIT SET IN THIS. REGISTER 

He YES GO SEE IF THERE IS AN ERROR 
UNTIL ALL REGISTER CHECKED 

; CLEAR REGISTER JUST TESTED AND POINT 

310 NEXT ONE 


;CONTINUE TESTING 

;DID WE COMPARE THE REGISTER TO ITSELF? 
;IF YES GET OVER 

;IF NO SET UP ERROR INFORMATION 


SNOT TO 1 INTERNAL ADDRESS MODIFIED 
SO ADDRESS 


NOT UNIQUE 
;RESTORE POINTER 
;GET BACK IN TEST LOOP 


5 RRRRRREREEEEERERESESESESEEREEEES SEES OSES EESESS44404600464444444 
TEST THAT SLUL S ONLY WHEN ENABLED 


;*#TES 


er Pe soy tesim s4SET TEST MMGER 14 Jer MAL 00 


70$: 


99$: 


i$: 


2$: 


3$: 


#BIT 
ac 


acTCSR 
R 


(SP)+,CSP)-+ 
74 


04$ ,@CTVECT 
#8116, @CTCSR 





3;5ET TEST NUMBER IN APT MAIL BOX 
;1F NOT UNDER APT 


; 
; THEN RUN THESE TESTS 
: 


+00 THESE TESTS F 
F YES CONTINUE WITH TEST 
;IF NO GO TO START OF NEXT SET OF TESTS. 


TRANSMIT INTERRUPT ENABLE 
SAVE XMIT_ VECTOR 
;POINT XMIT VECTOR TO ERROR REPORT 
;WAIT FOR DONE 


;SET PSW TO PRIORITY 3 


;RESTORE SP AFTER INTERRUPT 


;XMIT INTERRUPTS WITH 
'SET XMIT VECTOR TO END OF TES 
;ENABLE INTERRUPTS 


mt pe ENABLE CLEAR 


SEQ 0042 





PO 


E4 


SEQ 0043 
CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 44 
JKDIBO.P11  24-MAR-86 09:57 GET VALUE FOR SOFTWARE SWITCH REGISTER 
2262 006410 000240 NOP | 
2284 006412 104075 ERROR 75 ;XMIT DID NOT INTERRUPT 
2286 006414 042777 000100 174342 4¢: BIC #8176, OCTCSR ;DISABLE INTERRUPTS 
2287 006422 022626 CMP (SP)+ (SPs sRESTORE SP AFTER INTERRUPT 
2288 006424 010377 174356 MOV R3, acTVEC "RESTORE XMIT VECTOR 
2290 
2291 sect 40 TEST SLUI XMIT INTERRUPTS DO NOT OCCUR UHEN DISAB 
2292 EST SLUL XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 
2293 jsssnensensuensnsenensenenensnsenenenssnenenenssnsnenensesensnes 
5294 006430 000004 juss 
2295 006432 012737 000030 001104 soy #30, $TESTN ; +3SET TE TEST T NUMBER IN APT MAIL BOX 
229% 006440 042777 000100 174316 BIC #BIT6 
2297 006446 004737 012356 JSR PC, WRPSW ISET BE at PRIORITY 7 
2298 006452 000340 340 
2299 006454 017703 174326 MOV ACTVECT ,R3 ;SAVE XMIT VECTOR 
2300 006460 012777 006506 174320 MOV #2$ ,ACTVECT ;POINT XMIT VECTOR TO ERROR REPORT 
2301 006466 105777 174272 1$: TSTB  acCTCSR ‘WAIT FOR DONE 
2302 006472 100375 BPL i$ 
2303 006474 052777 000100 174262 BIS @B1T6,@CTCSR § ;ENABLE INTERRUPT 
2304 006502 000240 NOP 
2305 006504 000402 BR 34 ;CONTINUE TEST 
2307 006506 022626 2$: CMP (SP)+,(SP)« ;RESTORE SP AFTER INTERRUPT 
2308 006510 104076 ERROR 76 
2309 XAT INTERRUPTS AT PRIORITY=7 
2310 006512 042777 000100 174244 33%: BIC #B1T6,@CTCSR INTERRUPT 
2311 006520 012777 006540 174260 MOV $4$ ,ACTVECT ‘POINT XMIT VECTOR TO ERROR REPORT 
2312 006526 004737 012356 JSR PC, WRPSW :SET PSW TO PRIORITY 3 
2313 000140 .WORD 140 
2314 006534 NOP 
2315 006536 000402 BR S$ ;BR TO END OF TEST-NO INTERRUPT 
2317 006540 022626 4$: CMP (SP)+,(SP)- ;RESTORE SP AFTER INTERRUPT 
2318 006542 104077 ERROR 77 
2319 ;XMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
2320 006544 010377 174236 S$: MOV R3, @CTVECT 'RESTORE XMIT VECTOR 
2322 
2323 3 jRRESREAKERAERESAESSESSSRSSEAERSARSERSEASERSESSSKSSAESLS SHEL SSSKSSAESES 
;#TEST 31 TEST SLUL TRANSMI F 
2325 SOCSSESSSSSSSSSSSSSSSSSSSSSSNNINNNS NOSSO NOON N INNS NII NINN Tt ee 
5326 006550 000004 $131: SCOPE 
2327 006552 012737 000031 001104 MOV #31, $TESTN SET TEST NUMBER IN APT MAIL BOX 
2328 006560 042777 000100 174176 BIC #8116, ACTCSR INTERRUPT ENABLE 
2329 006566 017703 174214 ocrvecr R3 ‘SAVE XMIT VECTOR 
2330 006572 017704 174212 MOV pahay ;SAVE XMIT PSW VECTOR 
2331 006576 012777 006640 174202 MOV #2$ ,ACTVECT ‘SET UP xT VECTOR 
2332 012777 000340 174176 MOV #340, ACTPSW ‘SET PIO 7 AFTER 
2333 004737 012356 JSR PC, WRPSW ;SET PSW TO PRIORITY 3 
2334 006616 000140 140 
2335 1 174140 1$: TSTB © @CTCSR ;WAIT FOR DONE 
2336 100375 BPL ; 
2337 006626 000100 174130 BIS @BIT6,QCTCSR § ;ENABLE INTERRUPTS 





F4 


CJUKDIBO 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 


006634 
006636 


000240 
104100 
022626 
012777 
004737 
000140 
000240 
042777 
000402 


24-MAR-86 09:57 


006670 
012356 


000100 


174106 
174104 


173770 


000033 
000002 


010762 


174136 


174076 


001104 
174042 


174044 
174014 


173760 


001104 
001156 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 45 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


NOP 
ERROR 100 
;XMIT INTERRUPT DID NOT OCCUR 
2$: CMP (SP). (SP)-+ ;RESTORE SP AFTER INTERRUPT 
MOV $ aCTVECT ;POINT XMIT VECTOR TO ERROR 
JSR Pc’ SW ;SET PSW TO PRIORITY 3 
“WORD 140 
NOP ;GIVE TIME FOR ANY INTERRUPTS 
BIC @BIT6.@CTCSR  ;DISABLE INTERRUPTS 
BR S$ ;BR TO END OF TEST 
43: CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
7 ;XMIT RE-INTERRUPTED 
S$: MOV RS. @CTVECT ‘RESTORE XMIT VECTOR 
MOV 4; acTPSW ;RESTORE XMIT PSW VECTOR 


fp ERRRRERERARERASEERSSERERASEEEEES ERASE SESESESESSESEESEEEESESEESESESEEES 


s*TEST 32 TEST THAT SLU1 XMIT INT TH LOADING TBUF 
Oe 


MOV #32, $TESTN SET TEST NUMBER IN APT MAIL BOX 
BIC 9B116,acT ‘DISABLE INTERRUP 
JSR C.WRPSH ‘SET PSW TO PRIORITY 7 
MOV acTVECT R3 ;SAVE XMIT VECTOR 
MOV $, BCTVECT ;POINT XMIT VECTOR TO ERROR 
BIS oatte @CTCSR § ;ENABLE INTERRUPTS 
CLR error ;LOAD TBUF 
1s: TsTe acTCSR ;WAIT FOR DONE CINTERRUPT) 
CLR @CTBUF -FILL SECOND BUFFER TO RESET INT. 
JSR PC. WRPSH ;ALLOW INTERRUPTS 
NOP ;GIVE TIME FOR ANY INTERRUPTS 
BIC @BIT6,@CTCSR §§ ;DISABLE INTERRUPTS 
BR 3$ ;BR TO END OF TEST 
2$ CMP (SP)+,(SP)-+ ;RESTORE SP AFTER INTERRUPT 
ERROR 102 
;LOADING TBUF DID NOT CLEAR INTERRUPT. 
3$ MOV R3, @CTVECT IRESTORE XMIT VECTOR 
SLU2IT: 


5p EERREREAAREERESESERERREAESERERERRRRESERERESERARESERSSERALSST TESS 
TEST THAT SLU2 XMIT TS ONLY 


;*TEST 33 
SERS ge 


T33 


MOV #33, $TESTN , SET TEST NUMBER IN APT MAIL BOX 
BIT #B1T1, 804DEVM DO THESE TESTS FOR THIS, DEVICE? 
JMP LTCIT fe NO SOTO Sant OF NEXT SET OF TESTS. 


99$: 


SEQ 0044 





G4 





SEQ 0045 
CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 46 
JKDIBO.P11  24-MAR-86 09:57 GET VALUE FOR SOFTWARE SWITCH becIsteR 
2394 007042 042777 000100 173704 BIC #BIT6 aTCsR ;CLEAR TRANSMIT INTERRUPT ENABLE 
2395 007050 017703 173722 MOV aTVECT,R i SAVE XMIT VECTOR 
239% 007054 012777 007100 173714 MOV 528 SECT ;POINT XMIT VECTOR TO ERROR REPORT 
2397 007062 105777 173666 1$: TSTB = ATCSR ‘WAIT FOR DONE 
2398 007066 100375 BPL 1$ 
2399 007070 004737 012356 JSR PC, WRPSW ;SET PSW TO PRIORITY 3 
2400 007074 000140 .WORD 140 
2401 007076 000402 BR 34 
5408 007100 022626 2$: CMP (SP +, (SP)¢ ;RESTORE SP AFTER INTERRUPT 
2404 007102 104116 ERROR 
2405 ;XMIT INTERRUPTS WITH INTERRUPT ENABLE CLEAR 
2406 007104 012777 007124 173664 3: MOV @TVECT ;SET XMIT VECTOR TO END OF TEST 
2407 007112 052777 000100 173634 BIS sorte. @TCSR ;ENABLE INTERRUPTS 
2408 007120 000240 NOP 
2410 007122 104117 ERROR 117 ;XMIT DID NOT INTERRUPT 
2412 007124 042777 000100 173622 4+: BIC CoP ae5e ;DISABLE INTERRUPTS 
2413 007132 02 CMP SPs. 2s (SPs ;RESTORE SP AFTER INTERRUPT 
2414 007134 010377 173636 MOV 'RESTORE XMIT VECTOR 
2416 
2417 5p RARER EEEEEERESEEEEEEEEEEESEEEEEESEEOEEEEESESO44490444% 
2418 ;#TEST 34 TEST SLU2 XMIT INTERRUPTS DO NOT OCCUR WHEN DISABLED 
2419 _—— aa 
2421 007142 012737 000034 001104 MOV 034, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
007150 042777 000100 173576 BIC @B116,8TCSR § ;DISABLE INTERRUPT 
2423 007156 004737 012356 JSR PC WRPSH ISET PSW TO PRIORITY 7 
2425 007164 017703 173606 MOV @TVECT,R3 ;SAVE XMIT VECTOR 
007170 012777 007216 173600 MOV #28 @TVECT ;POINT XMIT VECTOR TO ERROR REPORT 
2427 007176 105777 173552 1s: TSTB CSR ;WAIT FOR DONE 
2428 007202 100375 BPL 1$ 
007204 052777 000100 173542 BS #8176, aTCSR ;ENABLE INTERRUPT 
2431 007214 000402 BR 3$ ;CONTINUE TEST 
2433 007216 022626 2$: CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
2434 007220 104120 ERROR 120 
2435 sXMTT INTERRUPTS AT PRIORITY=7 
2436 007222 042777 000100 173524 3$: BIC #8176, aT INTERRUPT 
2437 007230 012777 007250 173540 MOV ‘ater ‘POINT XMIT VECTOR TO ERROR REPORT 
2438 007236 004737 012356 JSR PC RP ;SET PSW TO PRIORITY 3 
2439 007242 000140 WORD oH 40 
2440 007244 40 NOP 
2441 007246 BR 5$ ;BR TO END OF TEST-NO INTERRUPT 
2443 007250 022626 4$: CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
2444 007252 104121 ERROR i21 
2445 ;XMIT INTERRUPT OCCURES WITH BIT6 CLEAR 
2446 007254 010377 173516 S$: MOV R3, @TVECT ‘RESTORE XMIT VECTOR 





H4 


CJKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 47 
JKDIBO.P11  24-MAR-86 09:57 GET VALUE FOR SOFTWARE SWITCH REGISTER 
2450 ) 
2451 5 RERRARRAAERA REAR REAR A EEAERRAERAEEREREAEEE AERA REREEEE EERE EEE ES 
2452 ;*TEST 35 TEST SL ANSMITTER FOR DOUBLE INT T 
2453 SRKERKRACAKAKKKARAKAKAKAKEKKAAKAAKKARKSEKARAEAKSEAKESKASRESEKEEEEEESEESKESEAESE SESS 
5454 007260 18T35: SCOPE 
2455 007262 012737 000035 001104 MOV #35, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
2456 007270 042 000100 173456 BIC #B1T6, ATCSR ‘éLe ERRUPT ENABLE 
2457 007276 017703 173474 MOV ATVECT RS ; SAVE CT 
2458 007302 017704 173472 MOV aTPSW.R4 ;SAVE XMIT PSW VECTOR 
2459 007306 012 007350 173462 MOV ees SatVECT ;SET T VEC 
2460 007314 012777 000340 173456 MOV 340, aTPSW ‘SET PIO 7 AFTER INT 
2461 007322 004737 012356 JSR Pe Rest ;SET PSW TO PRIORITY 3 
2462 007326 000140 Pc 440 
2463 007330 105777 173420 1$: TSTB = @TCSR ;WAIT FOR DONE 
2464 007334 100375 BPL i$ 
2465 007336 052777 000100 173410 BIS #8116, @TCSR ;ENABLE INTERRUPTS 
2466 007344 NOP 
2468 007346 104122 ERROR 122 
2469 ;XMIT INTERRUPT DID NOT OCCUR 
2470 007350 2$: CMP (SP)+,(SP)+ ‘RESTORE SP AFTER INTERRUPT 
2471 007352 012777 007400 173416 MOV $4$ .aTVECT ;POINT XMIT VECTOR TO ERROR 
2472 007360 004737 012356 JSR PC, WRPSW ;SET PSW TO PRIORITY 3 
2473 007364 000140 “WORD 140 
2474 007366 NOP ;GIVE TIME FOR ANY INTERRUPTS 
2475 007370 042777 000100 173356 BIC #B1T6,@TCSR ;DISABLE TS 
2476 007376 BR S$ ;BR TO END OF TEST 
2478 007400 022626 4$: CMP (SP)+,(SP)-+ ;RESTORE SP AFTER INTERRUPT 
2479 007402 104123 ERROR i123 
2480 ;XMIT RE-INTERRUPTED 
2481 007404 010377 173366 S$: MOV R3,@TVECT ;RESTORE XMIT VECTOR 
2482 007410 010477 173364 MOV R4,aTPSW ;RESTORE XMIT PSW VECTOR 


2484 5p RRRRERRAEEREEEEEERERESEEASEERESESES ESSE ERESESESESES SES EEERE SEES 
2485 s*TEST 36 TEST THAT SLU2 XMIT INTERRUPT CLEARS WITH LOADING TBUF 
2486 Seen gar eat scm amma 


2487 007414 
2488 007416 012737 000036 001104 MOV #36, $TESTN SET atst NUMBER IN APT MAIL B0X 
2489 007 032727 000001 001120 BIT #1, SesENV RUNNING UNDER APT 

2490 007432 001403 BEQ 70$ NO TIEN NBO” T 

2491 007434 005737 001106 TST aesPASS 5c THES FIRST PASS 

2432 007440 001046 iis BNE TST37 SIF NO THEN SKIP TO NEXT TEST 
2494 007442 042777 000100 173304 BIC #8116, @TCSR ;DISABLE INTERRUPTS 

2495 007450 004737 012356 JSR PC, WRPSW «SET PSW TO PRIORITY 7 

249% 007454 340 : 

2497 007456 017703 173314 MOV @TVECT ,R3 ;SAVE XMIT VECTOR 

2498 007 012777 007534 173306 MOV $2$, ATVECT sPOINT XMIT VECTOR TO ERROR 
2499 007470 052777 000100 173256 BIS #8116, ATCSR ‘ENABLE INTERRUPTS 

2500 007476 005077 173254 CLR aTBUF ;LOAD TBUF 

2501 105777 173246 1s: TsTB TCS ;WAIT FOR DONE CINTERRUPT) 

2503 007510 005077 173242 CLR @TBUF ;FILL SECOND BUFFER TO RESET INT. 
2504 007514 004737 012356 JSR PC, WRPSW ;ALLOW INTERRUPTS 

2505 000140 .WORD 140 





14 


CREDO 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 24-MAR-86 09:57 





000240 
042777 
000402 


000100 


173200 
173220 


007662 
000100 


000100 
173074 


000040 
012356 


173052 
007752 


173222 


173122 
173072 


173060 


001104 


173044 


SEQ 0047 
MACY11 30(1046) 24-MAR-86 10:44 PAGE 4 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


NOP ;GIVE TIME FOR ANY INTERRUPTS 
BIC #BIT6,ATCSR ;DISABLE INTERRUPTS 
BR 3$ ;BR TO END OF TEST 
2$: CMP (SP)+,(SP)- ;sRESTORE SP AFTER INTERRUPT 
ERROR 124 
;LOADING TBUF DID NOT CLEAR INTERRUPT. 
3$: CLR Ri ; INITIALIZE LOOP COUNTER 
4$: INC Ri ; LOOP C ER 
BNE A$ ;UNTIL LOOP COUNTER EQUALS 0 
TST @RBUF ;CLEAR RECEIVER BUFFER 
MOV R3,aTVECT ;RESTORE XMIT VECTOR 


5p RRERRAEREEEREREEERESEEEEREERESEREREERESERERESESESSESE SESE EES ESS 
EST THA INT TS ONLY WHEN 


;#TEST 37 
ee 


1§137 


MOV #37, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
BIC  @BIT6,8TCSR  ;DISABLE TRANSMIT INTERRUPTS 
BIC #8116. aRCSR tO TSABLE RECEIVER INTERRUPTS 
MOV ARVECT .R3 ISAVE RECEIVE VECTOR 
MOV $2¢, ORVECT ;POINT RCV VECTOR TO ERROR REPORT 
JSR PC RP ;SET PSW TO PRIORITY 3 
CLR aTBUF ;SEND A CHARACTER 
1$: TsTe BRCSR ;WAIT FOR RECEIVER DONE 
BR 33 ;CONTINUE TEST 
2$: CMP (SP )+.(SP)+ ;RESTORE SP AFTER INTERRUPT 
;RECEIVER INTERRPUTS WITH INT. ENABLE CLEAR 
3$: MOV 34$ ,ARVECT ;POINT RCV VECTOR TO END OF TEST 
BIS #8116, @RCSR ; 
NOP ;GIVE ANY INTERRUPTS TIME 
ERROR 126 
;RCVR DID NOT INTERRUPT 
4s: BIC #BIT6,ORCSR ;DISABLE INTERRUPTS 
CMP (SP). (SP)« ;RESTORE SP AFTER INTERRUPT 
MOV 3, ARVECT ;RESTORE RECEIVE VECTOR 


jp RERREREREREREEERSRERSEESSAEREESERERERSESSSRESARERES ESE ASSESS 
;* TEST THAT RCVR TS DO NOT OCCUR WHEN DISABL 
eae Seale iecmiaaaaa tat en ice cemmuanenaanal 


MOV #40, $TESTN SET TEST NUMBER IN APT MAIL BOX 
JSR PC ,WRPSW PSW TO PRIORITY 7 


;SAVE RECEIVE VECTOR 


ARVECT RS 
;POINT RCVR VECTOR TO ERROR REPORT 


2$ , @RVECT 


MOV 
MOV 


ae 


J4 


ro 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 





005077 
105777 
100375 
052777 


104130 
010377 


24-MAR-86 09:57 


173024 
173012 


000100 


172756 


172624 


173002 


172764 
173000 


001104 


172730 
172724 


172652 


172660 


172620 


MACY11 30(1046) 24-MAR 
GET 


-86 10: 
VALUE FOR SOFTWARE SWITCH REGISTER 


aTBUF 
ORCSR 


i$ 
#BIT6,ARCSR 
3$ 

(SP )+,(SP)+ 
127 


#BIT6 ,ORCSR 
. WORD 

S$ 
(SP)+,(SP)+ 
130 


140 


R3, @RVECT 


PAGE 49 
;SEND A CHARACTER 
;WAIT FOR RECEIVER DONE 
;ENABLE INTERRUPTS 
;GIVE TIME FOR INTERRUPT 
;CONTINUE TEST 
;sRESTORE SP AFTER INTERRUPT 
;RCVR INTERRUPTS AT PRIORITY 7 
;CLEAR INTERRUPT ENABLE 
;POINT RCVR VECTOR TO ERROR REPORT 
;SET PSW TO PRIORITY 3 


;GIVE TIME FOR ANY INTERRUPT 
;BR TO END OF TEST, IF NO INTERRUPT 


;RESTORE SP AFTER INTERRUPT 


;RCVR INTERRUPT REQUEST PASSED WITH BIT6 CLEAR 
;RESTORE RECEIVE VECTOR 


pk OEE LL 


CLR 
1$: TSTB 
BPL 
BIS 
NOP 
BR 
2$: CMP 
ERROR 
3$: BIC 
MOV 
JSR 
NOP 
BR 
4$: CMP 
ERROR 
5$: MOV 
4i 
$141: SCOPE 
MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
CLR 
1$: TSTB 
BPL 
BIS 
NOP 
ERROR 
2s: CMP 
MOV 
JSR 
. WORD 
NOP 
BIC 
MOV 
BR 
3$: CMP 
ERROR 
4$: MOV 





OS eee 


SAVE RECEIVE PSW VECTOR 

;POINT RCV VECTOR TO CONTINUE TEST 
iSET TO 7 AFTER INTERRUPT 
:SET PSW TO PRIORITY 3 


;SEND A CHARACTER 
;WAIT FOR RCVR DONE 


;ENABLE RCV_INTERRUPTS 
;GIVE SOME TIME 

;RCVR INTERRUPT DID NOT OCCUR 
;RESTORE SP AFTER 


INTERRUPT 
;POINT RCV VECTOR TO ERROR REPORT 
;RESET PSW TO PRIORITY 3 


sRESTORE SP AFTER INTERRUPT 


;RECEIVER 


INTERRUPTED 
;RESTORE RECEIVE IVE VECTOR 


K4 


CJKDIBO 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 :57 


2618 
2619 


24-MAR-86 09: 


172520 


001104 


172574 
172544 


172510 


001104 
001120 


172364 


merit 30(1046) 24-MAR-86 


10: PAGE 
T VALUE FOR SOFTWARE SWITCH REGISTER 


50 


| sSaanneneseesannesensssanssesessanssesesesessnesecesssesesssoees 
TEST THAT RCVR INTERRUPT CLEARS BY READING RBUF 


s#TEST 42 


5p ERE AR EERE EER EES EERE ARERR REESE EER EREEEE SEES EEE EEE EEE ES 
TST42: SCOPE 


1$: 


2s: 


3$: 


MOV 


#42, $TESTN 
PC ,WRPSW 


ARVECT ,R3 

#2$, BRVECT 

#68116, ORCSR 
BUF 


ORCSR 
i$ 


PC ,WRPSW 
.WORD 140 
#BIT6,ARCSR 
3$ 
(SP)+,(SP)+ 
133 


R3,@RVECT 


#4 TEST NUMBER IN APT MAIL BCX 
T PSW PRIORITY TO 7 


;SAVE RECEIVE VECTOR 

;POINT RCV_ VECTOR TO ERROR REPORT 
;SET wy. INTERRUPT ENABLE 

;SEND A CHARACTER 

;WAIT FOR DONE CINTERRUPT) 


;READ RBUF TO CLEAR PENDING INTERRPUT 
;SET PSW TO PRIORITY 3 


;ALLOW TIME FOR ANY ERRONEOUS INTERRUPT 
;NO INTERRUPT-CLEAR INT. ENABLE 
;sRESTORE SP AFTER INTERRUPT 

;sREADING RBUF DID NOT CLEAR INTERRUPT 


;RESTORE RECEIVE VECTOR 


jp RRRERERAAESARERASEESSERE CERES EEESESEEEEEESEESESSEEESSES448SEE EES 
;#TEST 43 TES RESET CLEARS RECEIVE 
sag aetna een ise eu eee De: tn mmaneummuueel 


70$: 


i$: 


BIT 
BEQ 
TST 
BNE 


SLU2 THAT 


in $TESTN 


#BIT6, ARCSR 
3$ 


;;SET TEST NUMBER IN PPT MAIL BOX 
; RUNNING UNDER APT 


THEN 
3 THIS FIRST PASS 
NO THEN SKIP TO NEXT TEST 


;CLEAR EVERYTHING 

;SET PSW TO PRIORITY 7 

;SAVE RECEIVE VECTOR 

sPOINT RCV VECTOR TO ERROR REPORT 
;SET RCV INTERRUPT ENABLE 

;SEND AN ALL 1'S CHARACTER 

‘WAIT FOR RCV DONE 


;CLEAR RCV INTERRUPT & RBUF 
;SET PSW TO PRIORITY 3 


;ALLOW TIME FOR AN ERRONEOUS INTERRUPT 
;NO INTERRUPT-CLEAR INT. 
;CONTINUE TEST 


ENABLE 


SEQ 0049 





L4 


CUKDIBO 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 24-MAR-86 09:57 


SEQ 0050 
MACY11 30(1046) 24-MAR-86 10:44 PAGE 51 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


2674 010366 022626 2$: CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
2675 010370 104134 ERROR 124 ;RESET DID NOT CLEAR RCVR INTERRUPT 
2677 010372 010377 172374 3$: MOV R3, RVECT ;RESTORE RECEIVE VECTOR 

2679 

2680 3 + 9 ea ee ne ge ne ge a ee egg ee ne a ng 
2681 ;eTEST 44 EST SLU2 THAT “OVERRUN & ERROR” BITS CAN BE SET 
2682 KEKKARESRARACAKCAKAKARESKAADESERKACAAEKESKAKEEAEESEEESAESAESEEEESE4EESEESEEEES 
5683 010376 +8744: 

2684 010400 012737 000044 001104 sTESTN ;;SET TEST NUMBER IN APT MAIL BOX 
5685 010406 032777 002000 170424 BIT 98 gertio ‘tS THIS TEST DISABLED 

2686 010414 001023 TST ‘IF NOT ENABLED, BR TO NEXT TEST 
2687 010416 012700 000003 MOV 83 RO ;SET CHARACTER COUNT TO SEND 3 CHAR. 
2688 01 005077 172330 1$ R aTBUF ;LOAD TRANSMIT BUFFER 

2689 01 105777 172322 2$ TSTB = @TCSR ‘WAIT FOR TRANSMIT DONE 

2690 010432 100375 2$ 

2691 010434 DEC RO ;DECREMENT CHARACTER COUNT 

2692 010436 001371 ;BR IF ALL CHARACTERS NOT TRANSMITTED 
2693 O01 32777 040000 172304 BIT @BIT14,QRBUF § ;TEST FOR “OR” ERROR FLAG 

2694 010446 001001 BNE 3$ ;8R, IF SET 

2695 010450 104135 ERROR 135 

2696 ;"OR” ERROR FLAG DID NOT SET 

2698 010452 032777 100000 172272 34: BIT @BIT1S,@RBUF § ; TEST “ERROR” FLAG 

2699 010460 001001 4$ ;BR, IF SET 

2700 010462 104136 ERROR 136 

2701 ; "ERROR" FLAG DID NOT SET WITH “OR” FLAG 
2702 010464 4$: 

He 

2705 eee e teeter aT Sat ETS ke ee 
2706 45 TEST THAT BREAK ALL 

2707 [sasesggeeenenssasssesssnnenacassseseesacesssssssssacessseseses 
5708 010464 jesse SCOPE 

2709 010466 012737 000045 001104 MOV 645, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
5710 010474 012777 177777 172254 MOV —«- @- 1. @TBUF ‘TRANSMIT ALL ONES TO RCVR 

a7 01 10577 172242 1$: ‘WAIT FOR RCVR DONE 

2713 010510 005777 172236 ;CLEAR DONE (LEAVING ALL ONES IN RBUF) 
2714 010514 052777 000001 172232 ; TRAN BREAK 

2715 010522 005000 ;CLEKR A TIMER 

2716 010524 105777 172220 2$: ;WAIT FOR RCVR DONE 

2717 010530 100406 ;8R IF DONE 

2718 010532 005200 ;IF NOT, INCREMENT TIMER 

2719 010534 001373 ‘BR IF TIME REMAINS 

2721 010536 042 000001 172210 ; CLEAR BREAK BITS 

2722 010544 104137 137 ;BREAK DTD NOT TRANSMIT ANYTHING 
2724 010546 105777 172200 CONT41: TSTB  a@RBUF s CHECK RECEIVE BUFFER FOR ZERO 
2725 010552 001404 BEQ 3$ IF ZERO 

2726 010554 042777 000001 172172 BIC #BITO, ATCSR OR EAR BREAK BITS 

2728 010562 104137 ERROR 137 ;BREAK DID NOT TRANSMIT ALL ZEROES 








M4 


s+ 11/238 SLU LTC REPR DIAG 
JKD 24-MAR-86 09:57 


Pil 
010564 042777 000001 172162 





100000 


172042 
172026 


172014 


001024 
001026 


001104 
170230 


172134 


172114 
172104 


172072 


001104 
170136 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 52 SE@ 0051 
GET VALUE FOR SOFTWARE SUITCH REGISTER 


3$: BIC #6ITO,aTCSR ;CLEAR BREAK BITS 


5 RRRRAERREEEEE ARES REEEEREREESE EEE EEEE EEE EAEEEEE EES EEEEEE EEE EEE EE 
;#TEST 46 TEST THAT “FR” ERROR CAN BE BREAK 
ee 






#46. ¢TESTN. 1 TEST MMBER IN APT MAIL BOX 
BIT eBI g0r}10,35 ie 1 THIS TES 
TST4 O REXT TEST. GF DISABLED 
BIS IT0,aTCSR 
CLR ‘TRANSMIT A CHARACTER TO TIME BREAK 
1$: TSTB_  GRCSR WAIT FOR RCVR DONE 
BI $B1T0, aT CLEAR BREAK BITS 
BI errs, , CHECK FOR FRAMING ERROR FLAG 
; ' 
ERROR 140 
;BREAK DID NOT SET FRAMING ERROR 
2$: BIT  eBITIS,@RBUF $$; TEST "ERROR”’FLAG 
BNE 3 ;BR, IF SET 
ERROR 141 


;"ERROR” FLAG DID NOT SET WITH “OR” FLAG 


$: 
specearesteee meu 
T DATA PATHS USING WRAP CABLE 

jjssesssenessensnseuensenenensensusnsensnensesssensnsnncneneesens 


147: 
$47, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 
e117 Sue ‘£8 THIS TEST ENABLED 








; REGISTER FOR TEST DATA 
COUNT PA 


47 
SCOPE 
MOV 
BIT 
BNE 
CLR 
“$USWR 
i$: INCB Ri 
MOV R1, aTBuUF 
CLR 
2$: TSTB @RCSR 
BMI 3% 
INC RO 
BNE 2$ 
ERROR 56 
3$: MOV @RBUF ,R2 
CMP R1,R2 
BNE 4$ 
TSTB Ry 
BEQ TSTSO 
BR i$ 
4$: MOV Ri, $GDDAT 
MOV R2, $BDDAT 





N4 


SEQ 0052 
CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 53 
JKDIBO.P11  24-MAR-86 09:57 GET VALUE FOR SOFTWARE SWITCH REGISTER 

2786 010760 104142 ERKIR 142 ;DATA COMPARE ERROR WITH WRAP CABLE 
2788 
2789 010762 LTCIT: 
2791 } fs RaRSRAKEREASERESERERAEEESARESERERESEAESEREREEAESE EASES SEEEEEEEESEE ESD 
2792 ;#TEST 50 TEST THAT THE REAL TIME CLOCK INTERRUPTS PROPERLY 
2793 5 fF eRERSERAESESARERSESERESEEASESERERERERSEESEEEAERERES ESSERE EESSESESEESERS 
2794 010762 000004 : SC 
2795 010764 012737 000050 001104 MOV #50, $TESTN TEST NUMBER IN APT MAIL BOX 
27% 010772 032737 000004 001156 BIT eerie, ae$DEVM 60.1 THESE TESTS FOR THIS DEVICE? 
2797 011000 001002 BNE YES CONTINUE WITH TESTS 
2798 011002 000137 011474 JMP BLAST TF NO GO TO START OF NEXT SET OF TESTS. 
2799 011006 99: 
2800 011006 005000 CLR RO 
2801 011010 004737 012356 JSR PC, WRPSW ;SET PSW TO PRIORITY 7 

011014 000340 

011016 017703 171770 MOV aR CVT.RS SAVE LINE CLOCK VECTOR 
2804 011022 017704 171766 MOV CLOCK PSW VECTOR 
2805 011026 012777 011060 171756 MOV $e4 ORIENT ‘SET RTC INTERRUPT {VECTOR TO ERROR REPORT 
2806 011034 012777 000340 171752 MOV $540 ORT ;KEEP PRIORITY AT 7 
2808 011042 052777 000100 171720 BIS #8116, @LKS ;SET INTERRUPT ENABLE 
2809 011050 005200 1$: INC RO 
2810 011052 001376 BNE i$ 
2811 011054 NOP ;GIVE TIME FOR ANY INTERRUPTS 
2812 011056 000402 BR 34 ;BR, IF NO INTERRUPT OCCURS 
2814 011060 022626 2$: CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
2815 011062 104143 ERROR 143 sRTC INTERRUPTS AT PRIORITY 7 
2817 011064 005077 171700 3$: CLR @LKS § ;DISABLE RTC INTERRUPTS 
2818 011070 005000 CLR RO 
2819 011072 012777 011110 171712 MOV @XXX, BRTCVT ;SET RTC INTERRUPT VECTOR FOR ERROR 

011100 004737 012356 JSR PC, WRPSW ;CHANGE PSW TO PRIORITY 5 
2821 011104 .WORD 240 
2822 011106 104146 ERROR 146 
2823 011110 012777 011134 171674 XXX: MOV $4$ ,ARTCVT 
2824 011116 106427 000240 MTPS #240 
2825 011 005200 20$: INC RO 
2826 011 005700 TST RO 
e858 O11130 soonso ROP - GIVE TIME FOR ANY INTERRUPT 

; 

2829 011132 000402 BR S$ SIF NO INTERRUPT - BR TO CONTINUE TEST 
2831 011134 022626 4$: CMP (SF )+,(SP)+ SRESTORE SP AFTER INTERRUPT 
2832 011136 104144 ERROR 144 :RTC INTERRUPTS WITH INTERRUPTS DISABLED 
oesa $F 011140 012777 0111/0 171644 5$: MOV #7$ ,ARTCVT ;POINT RTC VECTOR TO END OF TEST 
2835 011146 005000 CLR 
2836 011150 052777 000100 171612 BIS $8116, @LKS ;ALLOW INTERRUPTS 
2837 011156 005200 6$: INC RO 
2838 011160 005700 TST RO 
2839 011162 100375 BPL 6$ 
2840 011164 000240 NOP ;GIVE TIME FOR INTERRUPT 


2841 





BS 


SEQ 0053 
CKDIBO, 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 54 
JKDIBO.P11  24-MAR-86 09:57 GET VALUE FOR SOFTWARE SWITCH REGISTER 
2842 011166 104145 ERROR 145 ;RTC INTERRUPT DID NOT OCCUR 
2844 011170 022626 7$: CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
2845 011172 042777 000100 171570 BIC #BIT6. aLKS ;DISABLE INTERRUPTS 
2846 011200 010377 171606 MOV R3, ORTICVT ;RESTORE LINE CLOCK VECTOR 
2847 011204 010477 171604 MOV R4‘@RTCPSW VRESTORE LINE CLOCK PSW VECTOR 
5850 
2851 Joy nagqeee yy CET OC —r—cc—ccccccne, 
2852 ;#TEST 51 TEST RTC FOR DOUBLE INTERRUP 
2853 SREKKRKEKKEAAKAKESEKKESKESKEREREKASEEEEEESEEAESEEEESESEEEEEEEEEEOEEEOESE 
5854 011210 000004 18151: SCOPE 
2855 011212 012737 000051 001104 MOV #51, $TESTN ge" TEST NUMBER IN APT MAIL BOX 
2856 011220 032737 000001 001120 BIT #1, aesENV ; RUNNING UNDER APT 
2857 011226 001403 BEQ 70$ ;IF NO THEN DO TEST 
2858 011230 005737 001106 TST ae$PASS ‘IS THIS FIRST PASS 
2859 011234 001050 BNE TST52 ;IF NO THEN SKIP TO NEXT TEST 
2860 011236 70$: 
2861 011236 017703 171550 MOV ARTCVT RZ ;SAVE LINE CLOCK VECTOR 
2862 011242 017704 MOV ;SAVE LINE CLOCK PSW VECTOR 
2863 011246 012777 011312 171536 MOV $2$, ORTICVT ;SET UP RTC INTERRUPT VECTOR 
2864 011254 012777 000340 171532 MOV #340,QRTCPSW § ;DISALLOW INTERRUPTS AFTER THE INTERRUPT 
2865 011262 004737 012356 JSR PC, WRPSW SSET PRIORITY TO 5 
2866 011266 000240 .WORD 240 
23868 011270 005000 CLR RO 
2869 011272 052777 000100 171470 BIS @BIT6,aLKS ;ENABLE CLOCK INTERRUPTS 
2870 011300 005200 1$: INC RO 
2871 011302 005700 TST RO 
2872 011304 100375 BPL i$ 
2873 011306 000240 NOP ;GIVE TIME FOR ANY INTERRUPT 
2875 011310 104146 ERROR 146 ;RTC INTERRUPT DID NOT OCCUR 
2877 011312 022626 2$: CMP (SPs s.(SP)¢ ;RESTORE SP AFTER INTERRUPT 
2878 011314 012777 011334 171470 MOV sPOINT RTC VECTOR TO ERROR REPORT 
2879 011322 004737 012356 JSR Pe tnPSt ;SET PSW TO PRIORITY 5 
2880 011326 000240 rial 240 
2881 011330 000240 NOP ;GIVE SOME TIME FOR AN INTERRUPT 
2882 011332 000402 BR as ;NO INTERRUPT - BR TO END OF TEST 
2884 011334 022626 3$: CMP (SP)+,(SP)+ s RESTORE $P AFTER INTERRUPT 
2885 011336 104147 ERROR 147 T SEQUENCE DID NOT CLEAR 
Seay sINTERRUPT REQUEST 
2888 011340 042777 000100 171422 44: BIC eBITé aLKS ;DISABLE CLOCK INTERRUPTS 
2889 011346 010377 171440 MOV aRTICVT ;RESTORE LINE CLOCK VECTOR 
2890 011352 010477 171436 MOV 3 ORTCP Su ;RESTORE LINE CLOCK PSW VECTOR 
2892 
2893 5 RRRRAEARRRARRRRESARRRERSREEARARARRARERARRERERSSAERSASAS SERA SATS 
2894 ;#TEST 52 TEST THAT RTC INTERRUPT CLEARS WITH 
2895 aaa el uaa meee 
5896 011356 000004 $152: SCOPE 
2897 011360 012737 000052 001104 MOV #52, $TESTN ;;SET TEST NUMBER IN APT MAIL BOX 





head 


yas om SLU LTC REPR DIAG 
JKDIBO .P 


011470 
011474 


011474 
Stan 


24-MAR-86 09:57 


000001 
001106 
012356 
171374 
011464 


000100 


012356 


000100 


171316 


001120 


171366 


171334 


171306 


001104 
001120 


SEQ 0054 
MACY11 30(1046) 24-MAR-86 10:44 PAGE 55 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
BIT 01, Oe$ENV i ARE WE RUNNING UNDER APT 
BEQ 70$ ;IF NO THEN DO TEST 
TST aesPASS 'IS THIS FIRST PASS 
ies BNE TST53 ;IF NO THEN SKIP TO NEXT TEST 
~~ a PC, WRPSW ;SET PRIORITY TO 7 
MOV ARTCVT RB ;SAVE LINE CLOCK VECTOR 
MOV #2$, ORTICVT ;POINT RTC VECTOR TO ERROR REPORT 
CLR RO 
FTS #B1T6, OLKS ;ENABLE CLOCK INTERRUPTS 
i$: INC RO 
TST RO 
BPL i$ 
RESET ;CLEAR PENDING INTERRUPT WITH RESET 
JSR PC WRPSH ‘SET PRIORITY TO 5 
NOP ;GIVE TIME FOR ANY INTERRUPT 
BIC #B1T6, ALKS ;DISALL 
BR 34 ;BR TO END OF TEST 
2$: CMP (SP)+,(SP)+ ;RESTORE SP AFTER INTERRUPT 
ERROR 150 sRESET DID NOT CLEAR INTERRUPT 
3$: MOV R3,QRTCVT ;RESTORE LINE CLOCK VECTOR 
BLAST: 


5p RRRRAERERE ARES EEEEGEEESEEEEEEEESESSEOOO$O808004646000000800444044 
:% TEST OPTIONS SIMUL TANEOUSL 

| RRRAREREERAREEESSE REESE SEER EEEEEEESEEESEESESEOESEEEEEESEESESE SESE 
S : 


853, $TESTN s SET TEST NUBER IN APT MATL BOX 
BIT @BITO,aesENV ss; 
70$ ;IF NO DO TEST 
@e$PASS 31S THIS FIRST PASS 
70$ ;IF YES DO TEST 
sE0P sIF NO DO NOT 00 TEST 
70$: ;CLEAR EVERY BODY 
#340,PS :SET PROCESSOR PRIORITY TO 7 
@TVECT, $TMPO 
@RVECT. $TMPL 
OCTVECT , $TMP2 
BCRVECT , $TMPS 
SRTCVT , $TMP4 
CT2 
RECCT2 


#XMIT2, @TVECT ;SET UP SLU2 TRANSMIT VECTOR 


33 
SCOPE 
MOV 
BEQ 
TST 
BEQ 
JMP 
RESET 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 


$340, a@TPSW ;AND PSW 

ORES, ORVECT ise UP SLU2 RECEIVER VECTOR 
340, ORPSW PSW 

@TICKER, ARTCVT ;SET UP RTC VECTOR 

$340, @RTCPSW  ;AND PSW 





DS 


yas 11/238 SLU LTC REPR DIAG 
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SEQ 0055 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 56 
GET VALUE FOR SOFTWARE SWITCH REGISTER 


2954 
2955 011654 052777 000100 171072 BIS #BIT6, BTCSR ;ENABLE SLU2 XMIT INTERRUPT 

3956 011662 052777 000100 171060 BIS @BIT6, ARCSR § ;ENABLE SLU2 RECEIVER INTERRUPT 
2957 011670 012703 026 MOV 1 ‘SET UP RECEIVER BUFFER 

soe 3 011674 052777 100 171066 BIS #BIT6, OLKS ;ENABLE RTC INTERRUPTS 

2960 011702 012701 177777 3$: MOV $-1, RL INITIALIZE DATA FOR SLU2(1ST CHR. 0) 
2961 011706 005037 76 CLR PS ;DROP PROCESSOR PRIORITY TO ZERO 
2962 011712 1 WAITIO: WAIT ‘WAIT FOR INTERRUPT 

2963 011714 000776 BR WAITIO 

2965 011716 005237 012236 TICKER: INC COUNT ;UPDATE COUNT 

2966 011722 000137 012036 JMP I ;GO TO INTERRUPT HANDLER 

2968 

2969 011726 005237 012232 XMIT2: INC XMTCT2 ;UPDATE XMIT INTERRUPT COUNT 
2970 011732 005201 INC Ri ;UPDATE XMIT DATA 

2971 Oli 010177 171016 MOV Ri, 8TBUF ' NEXT CHARACT 

2972 011740 023727 012232 000400 CMP XMTCT2, #400  ;IF 256 CHARACTERS HAVE NOT 

2973 011746 3 BLT i$ ; TRANSFERRED 

2974 011750 042777 000100 170776 BIC @BIT6, ATCSR ;ELSE NO MORE XMIT INTERRUPTS 
2975 011756 000137 012036 1$: JMP IOHAND ;GO TO INTERRUPT 

2977 011762 005237 012234 REC2: INC RECCT2 ;UPDATE RECEIVER INTERRUPT COUNT 
2978 011766 170760 TST @RBUF ;BIT 15 SETS IF ANY ERRORS 

2979 011772 100017 BPL 3$ ; IS CLEAR NO ERRORS 

2980 011774 017737 170752 001026 MOV @RBUF, $BDDAT ; INFORMATION 

2981 012002 RESET ; THE WORLD - STOP ALL 

2982 ; 

2983 012004 020327 026320 CMP R3, @BUF2 ;WAS MORE THAN 1 

2984 012010 003004 BGT ;IF YES GET LAST GOOD DATA 

2985 012012 012737 177777 001024 MOV %-1, $GDDAT ;IF NO MAKE GOOD DATA -1 

2986 012020 3 BR ; AND TO ERROR REPORT 

2987 012022 116337 177777 001024 1%: MOVB § -1(R3), $GDDAT ;GET LAST GOOD DATA RECEIVED 
2988 012030 104154 2$: ERROR 1 ;RECEIVER STATUS ERROR 

2989 012032 117723 170714 3$: HOVB @RBUF, (R3)+  ;GET DATA AND STORE IT 

5991 012036 023727 012236 000074 IOHAND: CMP COUNT, #74 ;HAS 1 SEC ELAPSED 

2992 012044 0024 BLT 3$ ;IF NO CONTINUE TEST 

2993 012046 042777 000100 170710 BIC 88116, @CTCSR TF YES STOP TRANSMISSIONS 

2994 012054 042777 000100 170672 BIC $B1T6, STCSR 

2995 012062 042777 000100 170700 BIC @BIT6. @LKS | TURN OFF LINE CLOCK 

299% 012070 000401 BR WAITER 

2997 012072 000002 3$: RTI ;RETURN FROM INTERRUPT TO AWAIT NEXT 
oon 012074 37 177776 WAITER: CLR PS ;MAKE PROCESSOR PRIORITY 0 

3000 012100 012705 140000 MOV #-40000, RS ‘SET UP LOOP COUNTER 

3001 012104 705 000001 1$: ADD #1, RS ;D0 LOOP UNTIL RS = 0 

3002 012110 001375 BNE i$ 

3003 0121 RESET ;STOP EVERYONE SHOULD BE DONE 
3004 012114 012706 001000 MOV #1000, SP ‘RESET STACK AFTER LAST INTERRUPT 
3006 

3007 012120 023737 012232 012234 CHECK2: CMP XMTCT2, RECCT2 ;@0F XMIT T_ INTERRUPTS = REC INTERRUPTS 
3008 012126 001401 BEQ i$ VIF YES CHECK DATA 

3009 012130 104157 ERROR 157 ;INTERRUPT COMPARISON ERROR 





co 


CJKDIBO 11/238 SLU LTC REPR DIAG 
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3046 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 





012703 
00500 
013704 
122 


114 
010137 
1041 
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012341 
001106 


012336 
000042 


170600 
170566 
170574 
170562 
170564 


001106 


MACY11 30(1046) 24-MAR-86 10 PAGE 57 
GET VALUE FOR SOFTWARE SWITCH REGISTER 
1$: MOV #BUF2, R3 ;INITIALIZE TO FIRST RECEIVED DATA 
CLR sINITIALIZE TO FIRST XMIT DATA 
MOV XMTCT2, R4 ‘GET @ OF BYTES TRANSFERRED 
2$: (R3)+, RI ,IS RECEIVED DATA = EXPECTED DATA 
BEQ 3$ MIF YES CONTINUE T 
MOVB §-(R3), $BDDAT ;IF NO GET ERROR INFORMATION 
MOV Ri, $GDDAT 
ERROR 160 ;SLU2 DATA COMPARISON ERROR 
INC R3 sI INUE ON ERROR RESET POINTER 
3$; INC R ‘UPDATE TO NEXT GOOD DATA 
SOB R4,2$ ;LOOP UNTIL ALL DATA CHECKED 
FINIE: HOV sTHPO, aTVECT ‘RESTORE VECTORS 
MOV $TMP2, A@CTVECT 
MOV $TMP3, @CRVECT 
MOV $TMP4, ARTCVT 
JMP $E0P ;FINISHED TESTING GO TO END OF PASS 
XMTCT2: .WORD 0 
RECCT2: .WORD 0 
COUNT: .WORD 0 


.SBTTL END OF PASS ROUTINE 
jE RREREEEARRERRESESEREEESESEEEEESERESS ESS OS 640$090450004040444444 


ASS) 
e WHERE XXXXX IS A DECIMAL NUMBER) 
MONITOR GO 0 IT 


;*IF THERES A 
*IF THERE ISN'T JUMP TO TSTi 
$E0P: 
SCOPE 
CLR $TSTNM ;:ZERO THE TEST NUMBER 
INC $PASS PASS NUMBER 
BIC #100000,$PASS ;;DON’T ALLOW A NEG. NUMBER 
DEC (PC )« ; ;LOO0P 
$EOPCT: . 
BGT $D0AGN 73;YES 
MOV CPC )+, @(PC)+ ;:;RESTORE COUNTER 
$ENDCT: .WORD 
$EOPCT 
TYPE $ENDMG 337 PASS ¢” 
MOV $PASS, -(SP) ;;SAVE $PASS FOR TYPEOUT 
TYPDS ;;G0 TYPE-- ASCII WITH SIGN 
TYPE » SENULL ;;TYPE A NULL CHARAC 
$GET42: MOV a¢42 ,RO ;;GET TOR 
BEQ $DOAGN ;;BRANCH IF NO MONITOR 
RESET ;;CLEAR THE WORLD 
$ENDAD: JSR PC, CRO) ;;G0 TO TOR 
NOP ; SAVE 
NOP ;3FOR 
NOP ;;ACTiL 
$DOAGN: 
JMP acPC)+ ; sRETURN 
$RTNAD: .WORD TST1 


FS 


CUKDIBO 11/238 SLU LTC REPR DIAG 
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24-MAR - 86 

012336 377 
012341 015 042412 
012346 051501 
012354 000043 
012356 011646 
012360 013616 
012362 062746 000002 
012366 
012370 0 
O12 162700 000004 
012376 010037 012416 
01 016637 000002 
012410 104161 
012412 000000 
012414 000000 
012416 000000 
012420 
012420 105237 001003 
012424 001775 
012426 013777 001002 
012434 005237 001012 
012440 0116357 001016 
012444 162737 000002 
012452 117737 166340 
0 032777 020000 
012466 001004 
012470 004737 
012474 104401 001075 
012500 
012500 122737 000001 
012506 001007 
012510 113737 001014 
012516 737 013304 
012522 000 
012523 000 


000 
042116 
020123 


012414 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 58 
END OF PASS ROUTINE 


$ENULL: .BYTE -1,-1,0 NULL CHARACTER STRING 
SENDMG: “ASCIZ <15><12>/END PASS #/ 
WRPSH: MOV SP), -($P) COPY RETUN PC 

MOV +, (SP) MOVE 


ac SP NEW PSW TO STACK 
#2,-(SP) JSR 
RTI POP RETURN PC & NEW PSW 
; SUBROUTINE TO REPORT UNEXPECTED OR ERRONEOUS TRAPS OR INTERRUPTS 


CATCH: MOV (SP)+,RO ;GET ADDRESS OF TRAP VECTOR + 4 
SUB ;ADJUST TO POINT TO TRAP ADORESS 
MOV 0, BDVECT ‘STORE TRAP OR INT ADORESS 
MOV aC), OLDPC ;GET PC TRAP OR INTERRUPT OCCURRED 
ERROR ; 
HALT ;PROGRAM MUST BE RESTARTED AT THIS POINT 
OLDPC: .WORD 0 
BDVECT: :WORD 0 


5p RRRERARAEEREREREREREREREES ESE SS SEES SEES ES ESSES ESSE ESEESEEEEE ESS 
;*THIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 





*SAVE THE ERROR ITEM NUMBER AND ADDRESS OF THE ERROR CALL 
;#AND GO TO $ERRTYP ON ERROR 
;#THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
;#SW15=1 HALT ON ERROR 
;*SW13"1 INHIBIT ERROR TYPEOUTS 
;# LOOP IN ERROR 
; 
4 ERROR N ; ;ERROR=EMT AND N=ERROR ITEM 
5 7 ERRKAEEAEKESRESSSSSSAKSSASASSERSESAKSSSKSSASSSASES SS SRSSSKERAS SESS 
$ERROR: 
7$: INCB  $€RFLG ;SET THE ERROR FLAG 
BEQ 7% ;DON’T LET FLAG GO TO ZERO 
HOV STSTNH,@DISPLAY ‘DISPLAY TEST NUMBER AND ERROR FLAG 
HOV (SP) ERRPC ‘GET ADORESS OF ERROR INSTRUCTION 
MOVB SSERRPC. $ITEMB ;STRIP AND SAVE THE ERROR ITEM CODE 
BIT 881713, aSWR ;SKIP TYPEOUT IF SET 
BNE 20$ ;SKIP TYPEOUTS 
JSR PC, $ERRTYP ;60 TO USER ERROR ROUTINE 
po TYPE ,$CRLF 
CMPB ss @AAP TN, S$ENV s RUNNING IN APT MODE 
BNE SKIP APT ERROR REPORT 
MOVE $ITEMB,21$ eet IT EM NUMBER AS ERROR NUMBER 
JSR PC, $ATY4 sO oaT CO ATAL ERROR TO APT 
an SHE 8 





GS 
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Pil 


001402 
013716 
022737 
001001 
000000 


000002 


166306 


001000 166272 


001010 
001072 


001072 
012322 


001075 
001014 


001016 


001160 
012654 


001075 
012672 
001075 


001075 


DIAG 
7 


MACY11 30( 
END OF PASS ROU 
223: BR 
23: TST 
_, 
3$: CKSWR 
BIT 
BEQ 
MOV 
4$: TST 
BEQ 
MOV 
5$: 
CMP 
BNE 
HALT 
6$: 
RTI 


22$ 
QSWR 
3$ 


#BIT09, ASWR 


$LPERR 


sESCAPE 
SESCAPE, (SP) 
#$ENDAD, 0042 
6$ 


1046) 24-MAR-86 10:44 PAGE 59 
TINE 


;APT ERROR LOOP 

; ERROR 

;SKIP IF CONTINUE 

;HALT ON ERROR! 

;TEST FOR CHANGE IN SOFT-SWR 
;LOO0P ON ERROR SWITCH SET? 


;BR IF NO 
sFUDGE RETURN FOR LOOPING 
sCHECK FOR AN ESCAPE ADDRESS 


; NONE 

;FUDGE RETURN ADDRESS FOR ESCAPE 
s;ACT-11 AUTO-ACCEPT? 

;BR IF NO 

;YES 

;RETURN 


.SBTTL ERROR MESSAGE TYPEOQUT ROUTINE 


:*THIS ROUT 
;#ERROR IS TO BE 
;#AND REPORTS THE 
$ERRTYP: 
TYPE 
MOV RO, -(SP) 
CLR 
BISB # assITEMB,RO 
BNE i$ 
MOV $ERRPC, -(SP) 
TYPOC 
BR 6$ 
1$: DEC RO 
ASL RO 
ASL 20 
ASL RO 
ADD @$ERRTB 
MOV (RO)+, 28 
BEQ 34 
TYPE 
2$: .WORD O 
TYPE $CRL 
3$: MOV (RO)+,4$ 
BEQ S$ 
TYPE 
4$: WORD O 
TYPE $CRLF 
S$: MOV (RO), RO 
BNE 7$ 
6$: MOV (SP)+,RO 
TYPE  ,$CRLF 


S THE “ITEM CONTROL 
REPORTED. IT THEN OBTAINS 
APPROPRIATE INFORMATION 


: iweTs ROUTING USES THE “ITEM CONTROL BYTE’ C#ITEMB) TO DETERMINE 
" 


BYTE” ($ITEMB) T 
CONCERNING THE 
>: "CARRIAGE RETURN” & “LINE FEED” 


;:SAVE RO 
;;PICKUP THE ITEM INDEX 


335A FOR 

+360 TYPE--OCTAL ASCIICALL DIGITS) 
STADJUST THE INDEX SO THAT IT WILL 
3 FOR THE ERROR T 





3; "ERROR MESSAGE" 

33" AGE RETUPN® € “LINE FEED” 

eT "DATA — POINTER 

33 

3; TYPE THE "DATA HEADER” 

:; "DATA HEADER” POINTER GOES HERE 

;; "CARRIAGE RETURN” & “LINE FEED” 

;;PICKUP "DATA TABLE” POINTER 
YPE THE DATA 


REST 
CARRIAGE RETURN" & “LINE FEED" 


THE “ERROR TABLE” ($ERRTB), 
ERROR. 


SEQ 0058 





H5 


CUKDIBO 11/238 SLU LTC REPR DIAG 
JKDIBO.P1 


000207 


013046 
104402 


00571 
001770 
0440 


24-MAR-86 09:57 


012732 


013076 
000340 


166046 
013102 
013010 


013076 
013102 
166012 


012736 
000340 
013102 
013102 


047520 


000024 


000024 


042527 





MACY11 3001046) 24-MAR-86 
ERROR MESSAGE TYPEOUT ROUTINE 
RTS PC 
7$: 
MOV aC RO)+,-CSP) 
TYPOC 
TST CRO) 
BEQ 6$ 
TYPE 8$ 
BR 7$ 
8$: ASCIZ / / 
EVEN 


.SBTii POWER DOWN AND UP ROUTI 


SEQ 0059 


10:44 PAGE 60 


; sRETURN 

; : SAVE QCRO)- FOR TYPE 

;;G0 T -OCTAL ASCIICALL DIGITS) 
a THERE ANOTHER NUMBER? 

‘TYPE TWO(2) SPACES 


; sLOOP 
;;TWOC2) SPACES 


NES 
fp RERARKERRARAAERREARARESSSEEESAAEESEESERERERESESSE SESE SAREE ESESEE SDSS 


; ROUTINE 
ARAKRSKAKEKKAKKREKKSEREKESKESAEKEEEESEEEKESESKEEKEEEEESEEESEEEESESESEEKEESEEEESE 

{SWRDN: MOV @$TLLUP, @@PWRVEC ;SET FOR FAST LU 

MOV « @340, @@PWRVEC+2 ;PRIO:7 

MOV RO, -(SP) ;PUSH RO ON STACK 

MOV Ri. -¢SP ; Ri ON ST 

MOV R2,- SP ; Re ON STACK 

MOV R3,-(SP ;PUSH R3 ON STACK 

MOV R4,-(SP ;PUSH R4 ON STACK 

MOV RS, -(SP) ;PUSH R5 ON ST 

MOV -(SP) ;PUSH @SWR ON STACK 

MOV SP, $SAVR6 ;SAVE SP 

HOV $PWRUP, B@PWRVEC ;SET UP VECTOR 

BR .-2 ;HANG UP 


fp ESKSSARSREASSSERSSERESASKSSAESESKSERSSSSSSRSSSSSSSSESSSELE SERS ELE SE SSS 


3 
Lamp, MOV. OSILLUP BOPURVEC ASET FOR FAST DON 


UP 
MOV @$ILL SET FOR FAST DOWN 
MOV SARE Se GET 
MOV Caps. nen * BOP STACK INTO @SWR 
MOV SP)+.R5 
MOV (SP)}+,R4 ;POP STACK INTO R4 
MOV CSP }+ RS ;POP STACK INTO R3 
MOV (SP)+,R2 sPOP STACK INTO R2 
MOV (SP }+ Rd :POP STACK INTO R1 
MOV CSP)+,RO ;POP ST INTO RO 
MOV $$PWRON, APPWRVEC ;SET UP THE POWER DOWN VECTOR 
MOV #340, BAPWRVEC+2 ;PRIO:7 
CLR $SAVRE ;WAIT LOOP FOR THE TTY 
1$: INC $SAVR6 ;WAIT FOR THE INC 
BNE i$ ;0F WORD 
TYPE SREPORT THE POWER FAILURE 
$PWRMG : gHORD $POWER ;POWER FAIL MESSAGE POINTER 
$ILLUP: HALT ;THE POWER UP WAS STARTED 
BR 2 ; BEFORE THE 
$SAVRE: 0 ;PUT THE SP HERE 
$POWER: .ASCIZ <15><12>"POWER” 








15 


SEQ 0060 
CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(01046) 24-MAR-86 10:44 PAGE 61 
JKDIBO.P11  24-MAR-86 09:57 POWER DOWN AND UP ROUTINES 
3234 
3235 
3236 
3237 _SBTTL SCOPE HANDLER ROUTINE 
3239 5 THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS, IT WILL INCREMEN 
3240 ;#THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMEN| 
3241 #AND LOAD THE TEST RUMBERC $TS TNH) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
3242 ‘#AND LOAD THE ERROR FLAG ($ERFLG) INTO DISPLAY<15:08> 
3243 ;*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
3244 ;*SW14=1 LOOP ON TEST 
3245 ;*SW09=1 
3246 ;#CALL 
3247 a SCOPE ; SCOPE=IOT 
3249 013114 $SCOPE: 
3250 013114 104407 CKSWR ;;TEST FOR CHANGE IN SOFT-SWR 
3251 013116 032777 040000 165714 1%: BIT #B1T14, aSWR ;;LO0P ON PRESENT TEST? 
3252 013124 001052 BNE $OVER YES IF SWi4=1 
3253 :MMMESTART OF CODE FOR THE XOR ‘ 
3254 013126 000416 ixTSTR: BR 6$ h1F ON THE " 
3255 sTHIS INSTRUCTION TO A “NOP” (NOP=240) 
3256 013130 013746 000004 MOV QHERRVEC,-(SP) ;;SAVE THE S VECT 
3257 013134 012737 013154 000004 MOV #5$,Q0ERRVEC  ;;SET FOR TIMEOUT 
3258 013142 005737 177060 TST 98177060 ;3TIME OUT ON XOR? 
3259 013146 012637 MOV SP)+, Q@ERRVEC ;;RESTORE THE ERROR VECTOR 
3260 013152 000421 BR $5 ;3G0 TO THE NEXT TEST 
3261 013154 022626 S$: CMP CSP )+. (SP A ;3CLEAR THE STACK AFTER A TIME OUT 
3262 013156 012637 000004 MOV SP * SERRE ;;RESTORE THE ERROR VECT 
3263 013162 000407 BR 73 ;;LO0P ON THE PRESENT TES 
3264 013164 6$:;@@@08END OF CODE FOR THE XOR 
3265 013164 105737 001003 2$: TSTB = SERFLG ;;HAS AN ERROR OCCURRED? 
3266 013170 001412 BEQ $SVLAD :;BR IF NO 
3267 013172 032777 001000 165640 BIT 8BIT09, @SWR ;:L00P ON ERROR? 
3268 01 001404 BEQ 43 ;:BR 
3269 01 013737 001010 001006 73: MOV $LPERR,$LPADR ;;SET LOOP ADDRESS TO LAST SCOPE 
3270 013210 BR sOVER 
3271 013212 105037 001003 4s: CLRB $ERFLG ;3ZERO THE ERROR FLAG 
3272 013216 105237 001002 $SVLAD: INCB § $TSTNM ;3COUNT TEST 
3273 01 113737 001002 001104 MOVB §$TSTNM,$TESTN ;;SET TEST NUMBER IN APT MAILBOX 
3274 013230 011637 001006 MOV CSP), $LPAOR ;3SAVE SCOPE LOOP 
3275 013234 011637 001010 MOV SP), $LPERR is ERROR LOOP 
3276 013240 37 001072 CLR SeScAPE THE ESCAPE FROM ERROR ADDRESS 
3277 013244 112737 1 001015 MOVB «#1, $ERMAX TVONLY ALLOW ONEC1) ERROR ON NEXT TEST 
3278 013252 013777 001002 165562 $OVER: MOV $TSTNM, @DISPLAY 1 DISPLAY TEST NUMBER 
3279 013260 013716 001006 MOV $LPADR, (SP) RETURN ADDRESS 
3280 013264 RTI  SFIXES PS 
3582 
3283 } fRERREKEAEAARASSERESASERERREREESASESSSEESERSRERE LEEK SRST SALAS K ERTS 
3284 ‘SBTTL APT COMMUNICATIONS ROUT 
3285 fp RERSSAEAAEEERASESS EKEKEAKKKESKAKAAKAEKSSAAKAASASELASSRASRSRAESRAEE 
338 ay 01 112737 000001 013532 $ATY1: MOVB  #1,$FFLG ;TO REPORT FATAL ERROR 
3288 013274 112737 000001 013530 $ATY3: HOVE a1 , SHFLG :TO TYPE A MESSAGE 





= 


5 
CUKDIBO 
JKOIB0.P 


3290 
3291 


013532 


001100 
013442 
000004 


001102 


11/238 SLU LTC REPR DIAG 
il 24-MAR-86 09:57 
13304 112737 000001 
013312 
13312 01 
013314 010146 
013316 105737 013530 
13322 001450 
013324 122 000001 
013332 001031 
013334 132737 000100 
013342 001425 
013344 017600 000004 
013350 766 000002 
013356 737 001100 
013362 001375 
013364 010037 001114 
013370 105720 
013372 001376 
013374 1637 001114 
013400 
013402 010037 001116 
013406 012737 000004 
013414 13 
013416 017637 000004 
01 766 000002 
013432 0135746 177776 
013436 737 013534 
013442 
013444 
013444 1 013532 
013450 001413 
013452 001120 
013456 001410 
013460 737 001100 
013464 001375 
013466 017637 
013474 005237 001100 
01 062766 
01 105037 01 
013512 105037 013531 
013516 105037 3530 
013522 012601 
013524 012600 
013526 000207 
013530 000 
013531 000 
013532 000 
013534 
1 
000100 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 62 
APT COMMUNICATIONS ROUTINE 


gAT YA MOVB #1, $FFLG ;TO ONLY REPORT FATAL ERROR 
MOV RO, -($P} ;PUSH RO ON STACK 
V Ri. -(SP ;PUSH R1 ON STACK 
TSTB 44s $MFLG ;SHOULD TYPE A MESSAGE? 
BEQ 5$ ‘IF NOT: BR 
CHPB GAPTENV, SENV iOPERATING UNDER APT? 
, 
BITe @APTSPOOL . SENVH i SHOULD SPOOL MESSAGE? 
MOV @4(SP),RO ;GET MESSAGE ADDRESS 
ADD #2,4(SP) RETURN ADDRESS 
1$: TST $MSGTYPE ;SEE IF DONE W/ LAST XMISSION? 
BNE i$ ,IF NOT: WAIT 
MOV RO, $MSGAD ;PUT ADDRESS IN MAILBOX 
2$: STB cR0)s ;FIND END OF MESSAGE 
SUB $MSGAD , RO :SUB START OF MESSAGE 
ASR RO LENGTH IN WORDS 
MOV RO, $MSGLGT ‘PUT LENGTH 
MOV 04, SHSGTYPE STELL APT TO TAKE MESSAGE 
3$: MOV @4(SP),4$ ;PUT MSG ADDR IN JSR LINKAGE 
ADD #2,4(SP) ;BUMP RETURN ADDRESS 
MOV 177776,-(SP) | ;PUSH 177776 ON STACK 
JSR PC, $TYPE :CALL TYPE MACRO 
4$ : “WORD 0 
10$: TSTB  $FFLG ;SHOULD REPORT FATAL ERROR? 
BEQ 12¢ ;IF NOT: BR 
TST $ENV ;RUNNING UNDER APT? 
BEQ 12$ SIF NOT: BR 
11$ TST $MSGTYPE iF INISHED LAST MESSAGE? 
BNE 113 IF NOT: WATT 
MOV SACSP),$FATAL GET ERROR 6 
INC ense ‘TELL APT TO TAKE ERROR 
12$: ADD $2,4(SP) ;BUMP RETURN 
CLRB = $FFLG ;CLEAR FATAL FLAG 
CLRB = $LFLG iG FLAG 
CLRB 4 © $MFLG 
MOV CSP }+ Rt ‘POP STACK INTO Ri 
MOV SP}+ RO ;POP STACK INTO Ri 
RTS pC ; RETURN 
SMFLG: .BYTE 0 
$LFLG: ‘BYTE 0 ;LOG FLAG 
$FFLG: .BYTE 0 ‘FATAL FLAG 
EVEN 
APTSIZE=200 
APTENV=001 
APTSPOOL =100 
APTCSUP=040 


-SBTTL TYPE ROUTINE 





KS 


SEQ 0062 
CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 63 
JKDIBO.P11  24-MAR-86 09:57 TYPE ROUTINE 
3346 F} SOOLITINE TO TYPE ASCT? MEGGAGE MESGAGE MUST TERMINATE UTTH AO. 
3347 ;#ROUTINE TO TYPE ASCIZ MESSAGE. MESSAGE MUST TERMINATE WITH A O BYTE. 
3348 ;*THE ROUTINE WILL INSERT A NUMBER Gr NULL CHARACTERS AFTER A LINE FEED. 
3349 ; #NOTEL: $NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
3350 ; #NOTED : $FILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
3351 ;*NOTES: $FILLC CONTAINS THE CHARACTER TO FILL AFTER. 
;* 
3353 
3354 ;#1) USING A TRAP INSTRUCTION 
3355 it TYPE  ,MESADR ;;MESADR IS FIRST ADDRESS OF AN ASCIZ STRING 
;* 
3357 ;* TYPE 
3358 ;* MESADR 
3359 ;* 
33 + 013534 105737 001057 $TYPE: TSTB  $TPFLG ;;I1S THERE A TERMINAL? 
3362 013540 100002 i$ ;;BR IF YES 
3363 013542 HALT ;;HALT HERE IF NO TERMINAL 
3364 013544 34 ; LEAVE 
3365 013546 01 1$: MOV RO, -(SP) ;3SAVE RO 
3366 013550 017600 000002 ao(sP),RO ;3GET ADDRESS OF ASCIZ STRING 
3367 013554 122737 000001 001120 CMPB 4 @APTENV,$ENV = ; ;RUNNING IN MODE 
3368 013562 001011 BNE 62$ 10 GO CHECK FOR APT CONSOLE 
3369 013564 132737 000100 001121 BITB § @APTSPOOL,$ENVM ; MESSAGE TO APT 
3370 013572 001405 BEQ 62$ ‘3NO.GO CHECK FOR CONSOLE 
3371 013574 010037 0 MOV RO,61$ 5 MESSAGE ADORESS FOR APT 
3372 01 737 013274 JSR PC, $ATY3 ;3SPOOL MESSAGE TO APT 
3373 013604 000000 61$: .WORD 0 $3 
3374 013606 132737 000040 001121 62$:  ®BITB j§§ @APTCSUP,$ENVM ;;APT 
3375 013614 001003 BNE 60$ 33YES,SKIP TYPE OUT 
3376 013616 112046 2$: MOVB (RO)+,-(SP) ;;PUSH CHARACTER TO BE TYPED ONTO STACK 
3377 013620 001005 BNE 4$ 3;BR IF IT ISN'T THE 
3378 013622 005726 TST (SP )« ;;IF TERMINATOR POP IT OFF THE STFCK 
3379 013624 012600 60$: MOV (SP)+,RO 33 
3380 013626 062716 000002 3$; ADD $2, (SP) ; ;ADJUST RETURN PC 
3381 013632 000002 RTI ; RETURN 
3382 013634 122716 000011 4$: CHPB 0s«@HXT, CSP) ;3BRANCH IF <HT> 
3383 013640 001430 BEQ 
3384 013642 122716 000200 CMPB sé MCRL, (SP?) ; ;BRANCH IF NOT <CRLF> 
3385 013646 001 BNE S$ 
3386 013650 005726 TST (SP )-« ;;PO0P Py et EQUIV 
3387 013652 104401 TYPE ;;TYPE A CR AND LF 
3388 013654 001075 $CRLF 
013656 105037 014064 CLRB § $CHARCNT ;:CLEAR CHARACTER COUNT 
013662 000755 BR 2$ >:GET NEXT CHARACTER 
3391 013664 004737 013746 S$: JSR PC, $TYPEC ‘G0 TYPE THIS CHARACTER 
013670 123726 001056 6$: CMPB0s«éSFELLC,(SP)+ #3;IS IT TIME FOR FILLER CHARS.? 
3393 013674 001350 BNE ‘SIF NO GO GET NEXT CHAR. 
3394 013676 013746 001054 MOV $NULL, -(SP) + GET ¢ OF piaLLER, Ct CHARS. NEEDED 
33 
3396 013702 105366 000001 7$: DECB 6-1 SP) ;;DOES A NULL NEED TO BE TYPED? 
3397 013706 002770 BLT +;BR IF NO--GO POP THE NULL OFF OF STACK 
3398 013710 004737 013746 JSR PC, $TYPEC ;3G0 TYPE A NULL 
3399 013714 105337 01 DECB $CHARCNT ;;D0 NOT COUNT AS A COUNT 
20 000770 BR 7$ ; ;L00P 





LS 
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JKDIBO.P11 


013722 
0 


000040 
013746 
000007 014064 


165016 
000002 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 64 
TYPE ROUTINE 


;HORIZONTAL TAB PROCESSOR 





# , (SP) 
pc, $TYPEC 
#7. $CHARCNT 


;;REPLACE TAB WITH SPACE 


STOP 
;sPOP SPACE OFF STACK 
+ 3GET NEXT CHARACTER 


;;CHAR IN KYBD BUFFER? 
;;68R IF NOT 

;;GET CHAR 

Bt on RES BITS 
+ BR IF NOT 


;;WAIT FOR CHAR 


3;FIX STACK 
;;WAIT UNTIL PRINTER IS READY 


3 EXIT 
1318 ge A LINE FEED? 
; ;BRANCH IF YES 


5p RERRRERRESRERERSEESESSSEREEAESAESE ESS ES ESEESEERESES ESS SSESESE SE 
ROUTINE IS CHANGE 


8$: MOVB 
9$: JSR 
BITB 
BNE 
TST 
BR 
$TYPEC: 
TSTB 
BPL 
MOV 
BIC 
CMPB 
BNE 
101$: 
TSTB 
BPL 
MOVB 
BIC 
CMPB 
BNE 
102$: 
TST 
10$: 
TST8 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 
i$: CMPB 
BEQ 
P INCB 
$TYPEX: RTS 
SBTTL 
3 *THIS 
;#O0CTAL ( 
;*CALL: 
3 # MOV 
;* TYPOS 
;* .BYTE 
3% .BYTE 


MOV 





NUM, -C SP) 


16-BIT BINARY NUMBER TO A 6-DIGIT 


ASCII) NUMBER AND TYPE IT. 
jet YPOS---ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


- 331 TYPE LEADING ZEROS 
;;0=SUPPRESS LEADING ZEROS 


;#$TYPON----ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
i$ TYPOS OR $TYPOC 


NUM, -(SP) 


; ;NUMBER TO BE TYPEU 


;;LOAD CHAR TO = TYPED INTO DATA REG. 
IS CHARACTER A CARRIAGE RETURN? 


FOR TYPEOUT 
—s—e TO TYPE 


: 


SEQ 0063 








MS 
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JKDIBO.P11  24-MAR-86 09:57 BINARY TO OCTAL (ASCII) AND TYPE 
3458 ™ TYPON ;;CALL FOR TYPEOUT 
3 
3460 :e$TYPOC---ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
3461 ;*CALL: 
5 V NUM, -( SP) ; ;NUMBER TO BE TYPED 
3463 " TYPOC ;;CALL FOR TYPEOUT 
3465 014070 017646 000000 $TYPOS: MOV acsP),-C(SP) ; PICKUP THE 
3466 014074 116637 000001 014313 MOVB 1(SP).$OFILL ## ;;LOAD ZERO F 
3467 014102 112637 014315 MOVB  (SP)+,$OMODE+1 ;;NUMBER OF DIGITS TO TYPE 
014106 062716 000002 ADD #2,(SP) ; ;ADJUST RETURN 
014112 000406 BR $TYPON 
3470 014114 112737 000001 014313 $TYPOC: MOVB #1, $OFILL ;;SET THE ZERO FILL SWITCH 
3471 014122 112737 000006 014315 MOVB  #6,$OMODE+1 ;3SET FOR SIX(6) DIGITS 
3472 014130 112 000005 014312 $TYPON: MOVB #5,$0CNT ;3SET THE ITERATION COUNT 
3473 014136 010346 . MOV R3,-CSP) ; SAVE 
3474 014140 010446 MOV Ra. -¢SP) ; SSAVE R4 
3475 014142 010546 MOV R5,-CSP ;;SAVE RS 
3476 014144 113704 014315 MOVB § $OMODE+1,R4 :;GET THE NUMBER OF DIGITS TO TYPE 
3477 014150 005404 NEG R4 
3478 014152 062704 000006 ADO 66, R4 ; SUBTRACT IT FOR MAX. ALLOWED 
3479 014156 110437 014314 MOVB R4. $OMODE ;:SAVE IT FOR USE 
3480 014162 113704 014313 MOVB $OFILL,R4 33GET THE ZERO FILL SWITCH 
3481 014166 016605 000012 MOV 12(SP),R5 ;sPICKUP THE INPUT NUMBER 
3482 014172 CLR R3 33 THE WORD 
3483 014174 006105 1$: ROL R5 ;;ROTATE MSB INTO °C” 
3484 014176 000404 BR 33 3:60 DO MSB 
3485 014200 006105 2¢: ROL R5 ;;FORM THIS DIGIT 
3486 014202 006105 ROL R5 
3487 014204 0061 ROL R5 
3488 014206 010503 MOV R5,R3 
3489 014210 006103 3$: ROL R3 :;GET LSB OF THIS DIGIT 
3490 014212 105337 014314 DECB $OMODE ; TYPE DIGIT? 
3491 014216 100016 BPL 73 3 BR 
014220 042703 177770 BIC #177770,R3 33GET RID OF JUNK 
3493 014224 001002 BNE ;3TEST FOR O 
014226 TST $f 
3495 014230 001403 BEQ S$ ::BR IF YES 
3496 014232 005204 4s: INC ;;DON'T SUPPRESS ANYMORE 0’S 
3497 014234 052703 000060 BIS #’0,R3 $3 
3498 014240 052703 000040 S$: BIS o RS ;;MAKE ASCII IF NOT ALREADY 
3499 014244 110337 014310 MOVB sR, BS ; SAVE FOR TYPING 
3500 014250 104401 014310 TYPE 83 ;360 TYPE THIS DIGIT 
3501 014254 105337 014312 7$: DECB  $OCNT ; COUNT BY 1 
3502 014260 003347 BGT 2$ ;38R IF MORE TO DO 
3503 014262 BLT 6$ ;;8R IF DONE 
3504 014264 INC R4 ;;INSURE LAST DIGIT ISN'T A BLANK 
3505 014266 000744 BR 2$ +360 DO OI 
3506 014270 012605 6$: MOV bas. na ; sREST R5 
3507 014272 012604 MOV SP)+,R4 ; #RESTORE R4 
3508 014274 012603 MOY (SP 2+. RS ;7RESTORE R3 
3509 014276 016666 000002 000004 MOV 2(SP),4(SP) ;3SET THE STACK FOR RETURNING 
3510 014304 012616 MOV (SP)+, (SP) 
Ssi> G1a3i0 08 PY MOVIE 0 + RE ORAGE FOR ASCII DIGIT 
$ ‘ 33 
3513 014311 000 ‘BYTE 0 ; ;TERMINATOR FOR TYPE ROUTINE 





NS 
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5 


SEES a Sel 


Pil 


014312 
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000001 


177777 


177776 


MACY11 30(1046) 24-MAR-86 10:44 
BINARY TO OCTAL CASCII) AND TYPE 


.BYTE 
.BYTE 


$OCNT : 


$OF ILL: 
$OMODE: .WORD 0 
.SBTTL CONVERT BINARY TO DECT 


0 
0 


PAGE 66 


;;OCTAL DIGIT COUNTER 


33 FI TCH 
;;NUMBER OF DIGITS TO TYPE 
MAL AND TYPE ROUTINE 


A 5-DIGIT 


fp RERRAERSERERERERAEESEERERERER ESSE EEE EEAEERERAEESRSESRESEREEALESESDS 
0 


1$: 


2$: 
3$: 


43: 


5$: 


8$: 


9$: 


st 


GUBSYPLECRSCSRGSSSSSSS 3 


~ 
— 
wo 


qasneaeee 


ASCII) NUMBER ° 
; *NUMBER POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL 
;*BEFORE THE FIR 
;*REPLA WITH 


A 16-BIT BINARY NUMBER TO 


UR OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 


SPACES 
NUM, -(SP) 


-1(R3) 


yo 
-% 


GeRevsse 
2 2 
o 


a1 wo 
Pe 
% 
~~ 


Drea 
B 
a) 

' 
Nm 
~~ 
x 
sd 
we 


;;PUT_THE BINARY NUMBER ON THE STACK 
;3;G0 TO THE ROUTINE 


ane 

RAD 

— 
a8 


cane 
ss 
ae 


i 
: 
, 
: 


: 
- 


: 
z 
c 


;;BR DONE 
;;INCREASE THE BCD DIGIT BY i 


;;ADD BACK THE CONSTANT 
; CHECK IF BCD DIGIT=0 


ASCII 

SD THE FIRST NON-ZERO? 
THE SIGN FOR TYPING 
TERMINATOR 


ON WHETHER THE 
BE TYPED 


SEQ 0065 





B6 


SEQ 0066 

CIKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 67 
JKDIBO.P11  24-MAR-86 09:57 CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 
3570 014472 012605 MOV (SP)+,R5 +sPOP STACK INTO RS 

014474 012603 MOV (SP)+,R3 ;;POP STACK INTO R3 
3572 014476 012602 MOV (SP)+,R2 ;yPOP STACK INTO R2 
3573 014500 012601 MOV (SP)+,R1 ;;POP STACK INTO R1 
3574 014502 012600 MOV (SP )+,RO +3 ACK INT 
3575 014504 104401 014532 TYPE $DBLK ;;NOW TYPE 
3576 014510 016666 000002 000004 MOV 2(SP),4(SP) ;;ADJUST THE STACK 
3577 014516 01261 MOV (SP)+, (SP) 
3578 014520 000002 RTI ; ;RETURN TO USER 
3579 014522 023420 $DTBL: 10000. 
3580 014524 001750 ~ 1000 
3581 014526 000144 100. 
3582 014530 000012 10. 
3583 014532 000004 $DBLK: .BLKW 4 
3584 
3585 
3586 .SBTTL TTY INPUT ROUTINE 
3588 5 RRRAAARREERRERAERERERRAREREEEEEEAEEESEEERORESEEEEEEEEEEEEE EEE SSD 
3589 “ENABL LSB 
3591 5p RRR RRERERREREREA EERE RSEAAEEREEEEESESSESESEEEERELESEEEEEES 44444 
3592 ;*SOFTWARE SWITCH REGIST 
3593 ;*#ROUTINE IS ENTERED HANDLER, AND WILL 
3594 :eSERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
3595 ;#WHEN OPERATING IN TTY FLAG CAG MODE: 
3596 014542 022737 000176 001040 $CKSWR: CMP @SWREG , SWR 53S THE SOFT-SWR SELECTED? 
3597 014550 001074 BNE 15$ ;;8RANCH IF NO 
3598 014552 105777 164266 TSTB  =_ BS TKS :;CHAR THERE? 
3599 014556 100071 BPL 15$ >31F NO, DON’T WAIT AROUND 
3600 014560 117746 asTKB (SP) ;3SAVE THE 
3601 014564 042716 177600 BIC $tC177 ; sSTRIP-OFF 
3602 014570 022726 #7, (SP)+ 5315 IT A CONTROL G? 
3603 014574 001062 BNE 153 ; NO 
3604 014576 123727 001034 000001 CMPB 40Os« SATB, #1 ; ;ARE WE RUNNING IN AUTO-MODE? 
3605 014604 001456 BEQ 15$ ;:BRANCH IF YES 
3607 0 104401 015277 TYPE  ,$CNTLG ;;ECHO THE CONTROL-G (tG) 
3608 015304 $GTSWR: TYPE $MSWR 33 TYPE 
3609 014616 013746 000176 MOV SWREG, -(SP) ; ;SAVE 
3610 014622 104402 TYPOC ;360 TYPE--OCTAL ASCIICALL DIGITS) 
3611 014624 104401 015315 TYPE ,$MNEW ; ;PROMPT F 
3612 014630 005046 19$: CLR (SP) ; 7CLEAR 
3613 014632 005046 CLR -(SP) >; THE NEW SWR 
3614 014634 105777 164204 7$: TSTB 0s @S TKS >;CHAR THERE? 
3615 014640 100375 BPL 7$ +31F NOT TRY 
3617 014642 117746 164200 MOVE a$TKB ~($P) :3PICK UP 
3618 014646 042716 177600 BIC #tC177, (SP) ;;MAKE IT 7-BIT ASCII 
39 
3622 014652 021627 000025 9¢: CMP (SP), #25 >;IS IT A CONTROL-U? 
3623 014656 001005 BNE 10$ ; BRANCH IF NOT 
3624 014660 104401 015272 TYPE  ,$CNTLU >3YES, ECHO CONTROL-U (tu) 
3625 014664 062706 000006 20$: ADD , SP a PREVIOUS 
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3626 
3627 


3629 
3631 


014670 


SLU LTC REPR 
24-MAR-86 09:5 


000757 


DIAG 
7 


164124 


000001 
164102 


SEQ 0067 
MACY11 30(1046) 24-MAR-86 10:44 PAGE 68 
TTY INPUT ROUTINE 


BR 19$ ;;LET‘S TRY IT AGAIN 
10$: CMP (SP), #15 :;1S IT A <CR>? 
BNE ;;BRANCH IF NO 
TST 4(SP) ;;YES, I6 IT THE FIRST CHAR? 
BEQ 11$ $3 IF YE 
MOV 2(SP),@SWR ;;SAVE MEW SWR 
11$: ADD ;;CLEAR UP STACK 
14$: TYPE $CRLF ;;ECHO <CR> AND <LF> 
CMPB 40 s«SIINTAG, #1 ; ;RE-ENABLE TTY KBD INTERRUPTS? 
BNE ; BRANCH NOT 
MOV #100, a$TKS ;;RE-ENABLE TTY KBD INTERRUPTS 
15$: RTI ; sRETURN 
16$: JSR PC, $TYPEC ;;ECHO CHAR 
CMP (SP), #60 ;3CHAR < 07 
BLT 18$ ; ;BRANCH IF YES 
CMP (SP), #67 33CHAR > 7? 
BGT 18$ ;;BRANCH IF YES 
BIC #60, (SP)-+ ;;STRIP-OFF ASC 
TST 2(SP) :31$ THIS THE FIRST CHAR 
BEQ 17$ ;;BRANCH IF YES 
ASL CSP ;; CHAR OVER TO MAKE 
ASL (SP) :3 ROOM FOR NEW ONE. 
17$: INC 2(SP) ;;KEEP COUNT OF CHAR 
BIS -2(SP), (SP) ;;SET IN NEW CHAR 
BR 7$ 3;GET THE NEXT ONE 
18$: TYPE $QUES ;3TYPE ?<CR><LF> 
BR 20$ 33S TE -U 
.DSABL LSB 


5 RRRERREEEREEEEEEEESESESEEEESE EES EESSEESETESESOEEEEEEEEEESEEEEED 
;*THIS WILL INPUT A SINGLE CHARACTER FROM THE TTY 


;; INPUT A SINGLE CHARACTER FROM THE TTY 


;* RETURN HERE ;; CHARACTER IS ON THE STACK 
TRIPPED OFF 


;* ;3;WITH PARITY BIT S 
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SEQ 0068 
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015114 026627 000004 000021 33: CMP 4(SP),#$XON +;1S IT A RANDOM XON? ; RANOO1 
3683 015122 001744 BEQ ;;BRANCH IF YES : RANOO 1 
3684 015124 026627 000004 000140 CMP 4(SP), #140 +;1S IT UPPER CASE? 
3685 015132 002407 BLT 4$ ;;BRANCH IF YES 
3686 015134 026627 000004 000175 CMP 4(SP), #175 +31S IT A SPECIAL CHAR? 
3687 015142 003003 BGT + Ri 
015144 042766 000040 000004 BIC $40, 4(SP) ;;MAKE IT UPPER CASE 
015152 000002 4$: RTI ;;G0 BACK TO USER 
3690 3 Seeeseeeeseeseeeeaaaeeneesennsansseesgsesasscsscesesesesssscess 
3691 ;#THIS ROUTINE WILL INPUT A STRING FROM THE TTY 
3692 ;*CALL: 
3693 <f RDLIN ; sINPUT A STRING FROM THE TTY 
3694 a RETURN HERE ; sADDRESS OF FIRST CHARACTER WILL BE ON THE STACK 
3695 7. ;;TERMINATOR WILL BE A BYTE OF ALL O'S 
3697 015154 010 $RDLIN: MOV -(SP) ; SAVE R3 
015156 012703 01 MOV SsTTYIN,R3 ;3GET ADDRESS 
3699 015162 022703 015272 2$ @$TTYINeS.,R3  ;;BUFFER FULL? 
3700 015166 101 BLOS = 4$ ;3BR IF YES 
3701 015170 104410 RDCHR ;3G0 READ ONE CHARACTER FROM THE TTY 
015172 112613 MOVB  (SP)+,(R3) ;;GET CHARACTER 
3703 015174 122713 000177 10$ CMPB «8177, CR3) 3315 IT A RUBOUT 
3704 O1 001003 BNE 3$ ;;SKIP IF NOT 
0 104401 001074 4s: TYPE $QUES ;3TYPE A‘?! 
3706 015206 000763 BR ; ;;CLEAR THE BUFFER AND LOOP 
3707 015210 111337 015260 3$: MOVB  (R3),9$ ;;ECHO THE CHARACTER 
3708 015214 104401 015260 TYPE ,98 
3709 015220 122723 000015 CMPB 40s«a@ 15, (3) ; ;CHECK FOR RETURN 
3710 015224 001356 BNE ;3;L00P IF NOT RETURN 
3711 015226 105063 177777 CLRB = - 1€R3) ;;CLEAR RETURN (THE 15) 
015232 104401 001076 TYPE $LF >;TYPE A LINE FEED 
3713 015236 012603 MOV SP «RS S RESTORE R3 
3714 015240 011646 MOV SP), -(SP) ; ADJUST THE STACK AND PUT ADDRESS OF THE 
5 015242 01 000002 MOV 4(SP),2(SP) $i FIRST ASCII CHARACTER ON IT 
3716 015250 012766 015262 000004 MOV OsTTYIN, 4(5P) 
3717 015256 000002 RTI ; sRETURN 
3718 015260 000 9$: BYTE 0 ;;STORAGE FOR ASCII CHAR. TO TYPE 
3719 015261 000 "BYTE 0 ; ; TERMINATOR 
3720 015262 000010 $TTYIN: .BLKB 8. SSRESERVE 8 BYTES FOR TTY INPUT 
3721 015272 052536 005015 000 §$CNTLU: “ASCIZ /#U/<15><12> + ;CONTROL “U” 


3722 015277 136 006507 000012 ‘$CNTLG: .ASCIZ /tG/<15><12> / "G" 
LC 015304 peta a 020122 $MSWR: .ASCIZ <15><12>/SWR = 


3725 
3726 015315 040 047040 053505 $MNEW: .ASCIZ / NEW = / 
000040 


3728 

3729 

3730 

3731 

3732 .SBTTL TRAP DECODER 

3735 tETHTS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
1% 

3736 *AND USE IT TO INDEX THROUGH THE TRAP TABLE FOR THE STARTING ADDRESS 

3737 5 s0F THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
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3738 ;#GO TO THAT ROUTINE. 
3740 015326 010046 $TRAP: MOV -(SP) + ;SAVE RO 
3741 015330 016600 000002 MOV 28), RO ;;GET TRAP ADDRESS 
015334 005740 TST ; BACKUP BY 
3743 015336 111000 MOVB cROD 0 ;;GET RIGHT BYTE OF TRAP 
3744 015340 006300 ASL ;;POSITION FOR INDEXING 
3745 015342 016000 015362 MOV $TRPAD(RO),RO  ;;INDEX TO TABLE 
3746 015346 000200 RTS RO 5 
a 
3749 ;;THIS IS USE TO E THE "GETPRI” 
3751 015350 011646 $TRAP2: MOV (SP), -(SP) ; MOVE THE PC DOWN 
3752 015352 016666 000004 000002 MOV 4(sP5,2¢SP) ;;MOVE THE PSW 
3753 015360 000002 RTI > ;RESTORE THE PSW 
3755 .SBTTL TRAP TABLE 
3757 ;*THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
3758 ;#BY THE "TRAP" INSTRUCTION. 
3760 ; ROUTINE 
Meee 
3762 015362 015350 STRPAD: .WORD  $TRAP2 
3763 015364 013534 $TYPE ;;CALL=TYPE TRAP +1 104401) TTY 
3764 015366 014114 $TYPOC ;;CALL=TYPOC 104402 AL NUMBER (WITH LEADING ZEROS) 
3765 015370 014070 $TYPOS ;;CALL= TRAP « 104403) TYPE OCTAL NUMBER (NO LEADING ZEROS) 
3766 015372 014130 $TYPON ;;CALL®TYPON | TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL) 
3767 015374 014316 $TYPDS ;;CALL=TYPDS | TRAP+5(104405) TYPE DECIMAL NUMBER (WITH SIGN) 
3769 015376 014612 $GTSWR ;;CALL=GTSWR § TRAP+6(104406) GET SOFT-SWR SETTING 
3771 015400 014542 $CKSWR ;;CALL=CKSWR § TRAP+7(104407) TEST FOR CHANGE IN SOFT-SUR 
3772 015402 015024 $RDCHR ;;CALL=RDCHR §§ TRAP+10(104410) TTY TYPEIN CHARACTER ROUTINE 
3773 015404 015154 $RDLIN ;;CALL*RDLIN TRAP+11(104411) TTY TYPEIN STRING ROUTINE 
3775 .S8TTL ECHO TEST 
3776 TTT TTT TTT TTT TT tte et tte 
3777 :sTHTS S ROUTINE WILL TYPED 
3778 *ON EITHER SLUI OR SLUG. DEFAULT IS TO THE CONSOLE DEVICE SLU1. 
3779 : #THE TEST IS HALTED BY TYPING A CONTROL-C 
;@TEST CAN BE RESTARTED AFTER HALTING BY JUST CONTINUING 
3781 KEEAKEEERAREREAERESSRERERERERESRERERSSSEAERSRERSRSRRAKSAALELTS & 
3782 015406 012737 000176 001040 ECHO: @SWREG, SWR ;SET UP FOR SWITCH REGISTER 
3783 015414 012737 000174 001042 MOV #DISPREG , DISPLAY ;AND DISPLAY REGISTER 
3784 015422 032777 000020 163410 BIT @B114, aSuR ;CHECK IF BIT4 SET IN SWITCH REG 
3785 015430 001403 BEQ ;IF NOT THEN T SL 
3786 015432 012703 002750 MOV @RCSR, R3 SIF BIT4 SET THEN SELECT SLU2 
3787 015436 000402 BR 2¢ 
3788 015440 012703 002760 1$: MOV @CRCSR, R3 ;SELECT SLU1 (THIS IS DEFAULT DEVICE) 
3789 015444 000005 2$: RESET ;CLEAR EVERYTHING 
3790 015446 112773 000052 000006 MOVB  #'«, @6(R3) ‘TRANSMIT PROMPT "«” 
3791 015454 105773 000000 3$: TSTB 3=—s_: CRB) ;WAIT FOR INPUT 


3793 015462 117373 000002 000006 MOVB G2(R3),86(R3) ;ECHO INPUT 
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015570 
015570 
015570 


000200 
000003 
015570 


040520 
000 


015664 


043012 
043516 
047412 
047514 


052123 


044522 
040522 
000 


042524 
0001/27 


050117 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 71 
ECHO TEST 


MOV @2CR3),RO 


sSTORE INPUT 
;BR_IF “ERROR"NOT SET 
SET PARITY ERROR TEST 


BPL. 
BIS #B1T12,R1 MASK 
BIT R1,RO ;CHECK FOR PARITY ERROR FLAG 
BEQ 4 ;BR IF NOT SET 
JSR PC MSG "REPORT PARITY ERROR 
4$: ASL Ri ;SHIFT MASK TO TEST “FR” FLAG 
BIT Ri .RO iTEST FOR FRAMING ERROR FLAG 
JSR PC.MSG ‘REPSORT FRAMING ERROR 
S$: ASL Ri ;SHIFT MASK TO TEST “OR” FLAG 
BIT R1,RO ;TEST FOR OVERFLOW ERROR 
6$ ;BR T SET 
6$: BIC #B81T7,RO CLEAR ANY PARITY BIT 
CMP ,RO INPUT CONTROL -C 
BNE 3 ‘BR IF IS NOT 
JSR PC MSG ;REPORT PROGRAM STOP 
T ;END OF TEST HALT 
BR ECHO ;AFTER END OF TEST HF 
; PRESS CONTINUE Oo RESTART ECHO TEST 
MSG: MOV @(SP)+,RO ;PICK UP MESSAGE POINTER 
ADD #2, -(SP) ; RETURN PC 
WAIT: TSTB @4(R3) ;WAIT FOR XMIT DONE 
BPL. WAIT 
CRO)» ,@6(R3) :SEND CHARACTER 
TSTB RO 3is THIS END OF MESSAGE? 
BNE WAIT ;BR IF NOT 
RTS PC ; 
MPAR -ASCIZ <CR><LF>/PARITY/ 
AFR .ASCIZ <CR><LF>/FRAMING/ 
MOR .ASCIZ <CR><LF>/OVERFLOW/ 
MSTOP: .ASCIZ <CR><LF>/STOP/ 
EVEN 


.SBTTL TERMINAL OUTPUT TEST 


Lnemmeeee NETO TENE EE OEE 
S ROUTINE WILL OUTPUT ALL WRITABLE CHARACTERS F 


;*THI 
+ # THE OCTAL CODE 040 --> 377 


SEQ 0070 





Lc emanssdanaiunsennsaeinanpesenigircanamedsaticagl 
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SEQ 0071 


3850 3#32 CHARACTERS ARE PRINTED ON EACH LINE 
sans ;*THE PATTERN IS REPEATED EVERY THREE LINES 
;* 
sans fp ERERAEKSERERERAERAAEREAEREREAREREAEEERERREAREREEEEEEEEAEREEESSE SEES SE 
3855 015664 012737 000176 001040 OUTTST: MOV #SWREG , SWR sSET UP FOR SOFTWARE SWITCH REGISTER 
3856 015672 012737 000174 001042 MOV @DISPREG , DISPLAY + AND DISPLAY REGISTER 
3857 015700 032777 000020 163132 BIT #B1T4, aSWR sCHECK IF BIT4 SET IN SWITCH REG 
3858 015706 001405 BEQ 1§ ; T THEN 
3859 015710 012703 002750 MOV @RCSR, RS ;IF BIT4 SET THEN SELECT SLU2 
3860 015714 000402 BR 
3861 015716 0127035 002760 1$ MOV #CRCSR, RS ;SELECT SLU1 (THIS IS DEFAULT DEVICE) 
3862 015722 2s RESET ;CLEAR THE 
3863 015724 012701 000040 3$ MOV #40,R1 iLOAD FIRST WRITABLE CHARACTER 
3864 015730 00 000040 4$ MOV COUNT PER LINE 
3865 015734 105773 000004 S$: TSTB = @4(R3) {WAIT FOR DONE 
3866 015740 100375 BPL $ 
3867 015742 010173 000006 MOV R1,@6(R3) ; TRANSMIT A CHARACTER 
3868 015746 105201 INCB RI sINCREMENT CHARACTER CODE 
3869 015750 005500 DEC RO ; DECREMENT COUNT 
3870 015752 001570 BNE 3$ ;BR IF LINE NOT COMPLETE 
sey 015754 004737 015570 JSR PC MSG ;SSUE CR,LINE FEED 
3873 015760 001075 $CRLF 
3874 015762 000000 TSTB = a@CR3) ; CHARACTER RECEIVED? 
3875 015766 $ ;BR IF YES 
3876 O01 032701 000200 BIT #B1T7,R1 ;FINISHED ONE PASS OF WRITABLE CHARACTERS? 
3877 015774 001353 BNE ;BR IF YES 
ad 015776 000754 BR 4% : IF NOT WRITE NEXT LINE 
3880 016000 005075 000002 6$: CLR a2(R3) ; CLEAR 
3881 016004 000000 HALT STOP TEST 
3882 016006 000726 BR OUTTST sRESTART TEST IF CONTINUED 
3884 
3885 016010 046125 030525 052040 EMS: -ASCIZ /SLU1 TCSR DONE NOT SET WITH RESET/ 
3886 016016 051503 020122 047504 
3887 016024 042516 047040 052117 
3888 016032 051440 052105 053440 
3889 016040 OS521i1 020110 042522 
3890 016046 3 000 
3891 
3892 
3893 
3894 
3896 016052 046123 030525 payee EM6 : -ASCIZ /SLU1 RCSR DID NOT RETURN SSYNC/ 


020122 

047516 020124 
3899 042522 052524 047122 
3900 016102 051440 054523 041516 
Son 016110 000 
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016111 
016116 
016124 


SLU LTC REPR DIAG 
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020061 
042040 
052117 
052125 
047131 


SEQ 0072 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 73 
TERMINAL OUTPUT TEST 


EM7: 


EM1i1: 


EM13: 


EM14: 





.ASCIZ /SLU1 RBUF DID NOT RETURN SSYNC/ 


.ASCIZ /CAN NOT SET BIT2 OF SLU1 TCSR/ 


-ASCIZ /RESET DID NOT CLEAR BIT2 OF SLUI TCSR/ 


/BIT6 OF SLUI TCSR NOT CLEAR AFTER RESET/ 


. ASCIZ 


.ASCIZ /SLU1 XMIT INTERRUPTED WITH PRIORITY 7/ 


| SP EAE CLERIC EEO ERNE TEDER ee EERES ETERRSTEET Ss one ES TT ne eT 


16 


SEQ 0073 
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3962 

3963 

oe 

3966 016372 040503 020116 047516 EM16:  .ASCIZ /CAN NOT SET BIT6 OF SLU1 TCSR/ 

3967 016400 020124 3 020124 

3 0 502 033124 7 

3969 016414 020106 123 

3970 0 051503 000122 

3971 

3972 

dt 

3975 016430 040503 020116 047516 EM17:  .ASCIZ /CAN NOT CLEAR BIT6 OF SLU1 TCSR/ 

3976 016436 020124 046103 040505 

3977 016444 122 033124 

3978 016452 047440 020106 0461235 

3979 016460 051503 

3980 016466 000122 

3981 

3982 

3983 

3985 

3986 016470 042522 042523 020124 EM20: .ASCIZ /RESET DID NOT CLEAR BIT6 OF SLU1 TCSR/ 

3987 016475 044504 020104 047516 

3988 0165C+ 020124 046103 

3989 01651l2 020122 044 033124 

3990 016520 047440 020106 046123 

3991 016526 0 051503 

3992 016534 000122 

3993 

3994 

3995 

3996 

a 

3999 016536 044502 033124 047440 EM21: .ASCIZ /BIT6 OF SLUI RCSR NOT CLEAR AFTER RESET/ 

4000 016544 020106 046123 030525 

4001 016552 051 051503 


040 020122 
4002 016560 047516 020124 046103 
4003 016566 040505 020122 043101 
4004 042522 


016606 046123 eae 051040 EM22:  .ASCIZ /SLU1 RCVR INTERRUPT WITH PRIORITY 7/ 





JO 


SEQ 0074 
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4018 

4019 

4020 

4021 

4023 016652 040503 020116 047516 EM23:  .ASCIZ /CAN NOT SET BIT6 OF SLU RCSR/ 

4024 016660 020124 0425235 020124 

4025 01 044502 033124 047440 

4026 016674 020106 046123 030525 

4027 016702 051040 051503 000122 

4028 

4029 

4030 

4031 


4032 016710 040503 020116 047516 EM24:  .ASCIZ /CAN NOT CLEAR BIT6 OF SLU1 RCSR/ 
4033 016716 020124 046103 040505 

4034 016724 020122 044502 033124 

4035 016732 04612 

4036 016740 030525 051040 051503 

4037 016746 000122 


40 
4039 
4040 
4041 
4043 016750 040503 020116 047516 EM25: .ASCIZ /CAN NOT CLEAR BIT6 OF SLUI RCSR WITH RESET/ 
4044 016756 020124 046103 040505 
4045 016764 020122 044502 ies 
4047 017000 030525 051040 051503 
017006 020122 044124 


4048 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 017036 051105 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 


£ 
4 
oO 
3 
: 
: 
g 
& 


017023 123 052514 020061 EM26: .ASCIZ /SLU1 RECEIVER DONE NEVER SET/ 
042522 053111 

047117 

042526 

017052 020122 042523 000124 

017060 042522 042523 020124 EM27:  .ASCIZ /RESET DID NOT CLEAR SLU1 RCVR DONE/ 

017 044504 020104 047516 


0171 020 046123 030525 
017110 051040 053103 020122 
017116 047504 042516 000 
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4074 
4075 
4076 
4077 
4078 017123 122 044504 
4079 017130 043516 051440 052514 
4080 017136 041122 043125 
4081 017144 042111 047 
4082 017152 052117 041440 042514 
4083 017160 051101 051040 0535103 
4084 017166 020122 7504 042516 
4085 017174 000 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 017175 052514 020062 
4094 01 041 051123 042040 
4095 017210 042111 047040 052117 
4096 017216 O51 052105 051 
4097 017224 020116 051523 047131 
4098 017232 000103 
4099 
4100 
4101 
4102 
4103 
4104 017234 046123 031125 052040 
4105 017242 052502 106 044504 
4106 017250 020104 047516 020124 
4107 017256 042522 7122 
4108 017264 051440 0545235 041516 
4109 017272 000 
4110 
4111 
4112 
4113 
4114 
4115 017273 


SEQ 0075 
MACY11 30(1046) 24-MAR-86 10:44 PAGE 76 
TERMINAL OUTPUT TEST 


EM3SO: .ASCIZ /READING SLU1 RBUF DID NOT CLEAR RCVR DONE/ 
EM3i: .ASCIZ /SLU2 TCSR DID NOT RETURN SSYNC/ 
EM32: .ASCIZ /SLU2 TBUF DID NOT RETURN SSYNC/ 


-ASCIZ /SiLU2 TCSR DONE NOT CLEARED WITH TBUF FULL/ 





LO 


ys ae 11/238 SLU LTC REPR DIAG 
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JKDIBO. 24-MAR 
4130 017345 123 
4131 017352 041524 
4132 017360 047117 
4133 017366 020124 
4134 017374 043101 
4135 017402 051124 
4136 017410 052111 
4137 
4138 
4139 
4140 
4141 
4142 
4143 017415 123 
4144 017420 041524 
4145 017426 047117 
4146 017434 020124 
4147 7442 044527 
4148 017450 051505 
4149 
4150 
4151 
4152 
4153 
4154 017455 123 
4155 017462 041522 
4156 017470 042111 
4157 017476 051040 
4158 01 020116 
4159 017512 0001035 
4160 
4161 
4162 
4163 
4164 
4165 017514 046123 
4166 017522 052502 
4167 0175350 020104 
4168 017536 042522 
4169 017544 051440 
4170 017552 000 
4171 
4172 
4173 
4174 
4175 
4176 017553 1 
4177 017560 043117 
4178 017566 
4179 017574 047040 
4180 017602 042514 
4181 017610 052106 
4182 017616 051505 


052514 
051123 
020105 


042524 
047101 
000 


MACY11 30(1046) 24-MAR-86 10:44 
TERMINAL OUTPUT TEST 


SEQ 0076 
PAGE 77 


EM34:  .ASCIZ /SLU2 TCSR DONE NOT SET AFTER TRANSMIT/ 


.ASCIZ 


-ASCIZ 


. ASCIZ 


-ASCIZ 


/SLU2 TCSR DONE NOT SET WITH RESET/ 


/SLU2 RCSR DID NOT RETURN SSYNC/ 


/SLU2 RBUF DID NOT RETURN SSYNC/ 


/BITO OF SLU2 TCSR NOT CLEAR AFTER RESET/ 





M6 


CJKDIBO 11/238 
JKDIBO.P11 


24- 


SLU LTC REPR DIAG 


MAR-86 09:57 


MACY11 a 24-MAR-86 10:44 PAGE 78 
TERMINAL TEST 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


/CAN NOT SET BITO OF SLU2 TCSR/ 


/CAN NOT CLEAR BITO OF SLU2 TCSR/ 


/RESET DID NOT CLEAR BITO OF SLU2 TCSR/ 


/BIT6 OF SLU2 TCSR NOT CLEAR AFTER RESET/ 


/SLU2 XMIT INTERRUPTED WITH PRIORITY 7/ 


SEQ 0077 





N6 


CJUKDIBO 11/238 SLU LTC REPR 


JKDIBO.P11 24-MAR-86 09:5 
4242 020074 047511 044522 
4243 020102 0353440 000 
4246 
4245 
4246 
4247 
4248 
4249 
4250 020105 103 047101 
4s23 teed 052117 1440 

020 041040 111 
4253 020126 043117 051440 
4254 020134 041524 
4255 020142 000 
4256 
4257 
4258 

4259 
4260 
4261 €20143 047101 
4262 020150 052117 1 
4263 020156 051101 1 
4264 020164 020066 043117 
4265 020172 052514 
4266 051123 000 
4267 
4268 
4269 
4270 
4271 
4272 020203 122 051505 
4273 020210 042111 
4274 020216 117 041440 
4275 020224 051101 041040 
4276 020232 043117 
4277 020240 052514 
4278 020246 051123 000 
4279 
4280 
4281 
4282 
4283 
4284 
4285 020251 1 052111 
4286 020256 043117 051i 
4287 020264 041 
42868 020272 047040 05211 
4289 020300 042514 051101 
4290 020306 052106 051105 
4291 020314 051505 1 
4292 
4293 
4294 
4295 
4296 
4297 


DIAG 
> 


054524 


SEQ 0078 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 79 
TERMINAL OUTPUT TEST 


~ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


/CAN NOT SET BIT6 OF SLU2 TCSR/ 


/CAN NOT CLEAR BIT6 OF SLU2 TCSR/ 


/RESET DID NOT CLEAR BIT6 OF SLU2 TCSR/ 


/BIT6 OF SLU2 RCSR NOT CLEAR AFTER RESET/ 








B/ 


CJKDIBO 11/2 
JKDIBO.P11 24-MAR - 86 
4298 020321 123 
4299 020326 041522 
4300 020334 052116 
4301 020342 052120 
4302 020350 020110 
4303 020356 044522 
4304 020364 

4305 

4306 

4307 

4308 

4309 

4310 

4311 020365 103 
4312 020372 052117 
4315 020400 041°40 
4314 020406 043117 
4315 020414 

4316 020422 0C0 
4317 

4318 

4319 

4320 

4321 

4322 020423 103 
4323 020430 117 
4324 020436 051101 
4325 020444 

4326 020452 14 
4327 051123 
4328 

4329 

4330 

4331 

4332 

4333 020463 103 
4334 020470 052117 
4335 020476 051101 
4336 020504 

4337 020512 052514 
4338 020520 051123 
4339 020526 020110 
4340 020534 000124 
4341 

4342 

4343 

B%4d 

4345 

4346 

4347 

4348 020536 


09:57 


031125 
044505 


38 SLU LTC REPR DIAG 


051040 
042526 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 80 
TERMINAL OUTPUT TEST 


EMS2: .ASCIZ /SLU2 RCVR INTERRUPT WITH PRIORITY 7/ 


EM53: 


.ASCIZ /CAN NOT SET BIT6 OF SLU2 RCSR/’ 


.ASCIZ /CAN NOT CLEAR BIT6 OF SLU2 RCSR/ 


-ASCIZ /CAN NOT CLEAR BIT6 OF SLU2 RCSR WITH RESET/ 


-ASCIZ /SLU2 RECEIVER DONE NEVER SET/ 


SEQ 0079 








C/ 


CJUKDIBO 11/238 SLU LTC REPR DIAG 


JKDIBO.P11 


045514 
020 


24-MAR-86 09:57 


044504 
020124 


047122 
041516 


020066 
051513 
041 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 81 
TERMINAL OUTPUT TEST 


EM57: 


-ASCIZ 


-ASCIZ 


. ASCIZ 


-ASCIZ 


/RESET DID NOT CLEAR SLU2 RCVR DONE/ 


/READING SLU2 RBUF DID NOT CLEAR RCVR DONE/ 


/LKS DID NOT RETURN SSYNC/ 


/BIT6 OF LKS NOT CLEAR AFTER RESET/ 


/LKS INTERRUPT WITH PRIORITY 7/ 


SEQ 0080 





D/ 


SEQ 0081 

CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 82 
JKDIBO.P11 24-MAR-86 09:57 TERMINAL OUTPUT TEST 

ait 

4412 021041 103 047101 047040 EM64: «.ASCIZ /CAN NOT SET BIT6 OF LKS/ 

4413 021046 052117 051440 052105 

4414 021054 041040 052111 

4415 021062 043117 046040 051515 

4416 021070 000 

4417 

4418 

4419 


4420 
4421 021071 103 pelts! 047040 EM65: .ASCIZ /CAN NOT CLEAR BIT6 OF LKS/ 


4423 021104 051101 1 052111 

4424 Oe2lile 043117 

4425 1120 051513 

4426 

4427 

4428 

4430 021123 122 051505 052105 EM66:  .ASCIZ /RESET DID NOT CLEAR BIT6 OF LKS/ 

4431 021130 042111 047040 

4432 021136 052117 041440 14 

4433 021144 051101 041 052111 

4434 021152 043117 

4435 021160 051515 

4436 

4437 

4438 

4439 

4441 021163 102 052111 020067 EM67: =.ASCIZ /BIT7 OF LKS NOT SET AFTER RESET/ 

4442 021170 043117 046040 051513 

4443 021176 7040 052117 051i 
1204 105 052106 

4445 021212 051105 051040 051505 

4446 021220 052105 

4447 

4448 

4449 

4451 

4452 021223 103 047101 047040 EM70: .ASCIZ /CAN NOT CLEAR BIT? OF LKS/ 

4453 021230 052 041440 14 

4454 021236 051101 1 052111 

4455 021244 043117 

4456 021252 051513 

4457 

4458 

4459 


4460 
4461 021255 102 052111 020067 EM71: .ASCIZ /BIT7 OF LKS DOES NOT SET/ 
44he 046040 





E/ 


CJUKDIBO 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 24-MAR-86 09:57 


123 
046530 
052116 
052120 


052 
051117 
000067 


030525 
020124 


MACY11 30(1046) 24-MAR-86 10:44 
TERMINAL OUTPUT TEST 


EM72: 


. ASCIZ 


. ASCIZ 


-ASCIZ 


.ASCIZ 


PAGE 83 


.ASCIZ /WRITING TO ONE INTERNAL ADDRESS MODIFIED ANOTHER/ 


/SLU1 XMIT INTERRUPTS WHEN DISABLED/ 


/SLU1 XMIT DID NOT INTERRUPT/ 


/SLUL XMIT INTERRUPT AT PRIORITY 77 


/SLU1 XMIT INTERRUPTS WITH ENABLE CLEAR/ 


SEQ 0082 





F7 


CUKDIBO 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 24-MAR-86 09:57 
4S22 021560 020110 047105 041101 
4523 021566 042514 041440 042514 
4524 021574 051101 000 
4525 
4526 
4527 
4528 
4529 
4530 
4531 021577 052514 020061 
4532 1604 046530 052111 042040 
4533 021612 042111 047040 052117 
4534 021620 044440 052116 051105 
4535 021626 052522 052120 
4536 
4537 
4538 
4539 
4340 021633 123 052514 020061 
4541 021640 0465350 052111 051040 
4542 021646 026505 047111 042524 
4543 021654 051122 050125 042524 
4544 1 000104 
4545 
4546 
4547 
4548 
4549 1 047514 042101 047111 
4550 021672 020107 0461235 0 
4551 1700 020106 
4552 1706 044504 020104 047516 
4553 021714 020124 046103 
4554 021722 020122 047111 
4555 1 051122 050 000124 
4556 
4557 
4558 
4559 
4560 
4561 
4562 1 046123 030525 051040 
4563 021744 053103 020122 047111 
4564 021 051122 050125 
4565 021760 O51 053440 052111 
4566 021766 020110 047105 041101 
4567 021774 042514 041440 042514 
4568 051101 000 
4569 
4570 
4571 
4572 
4573 
4574 
4575 14 020061 


MACY11 30 
TERMI 


EM100: 


EM101: 


EM1i03: 


EM104;: 


(1046) 
NAL OUTPUT 


.ASCIZ 


. ASCIZ 


. ASCIZ 


.ASCIZ 


.ASCIZ 


SEQ 0083 
24-MAR-86 10:44 PAGE 84 
TEST 


/SLU1 XMIT DID NOT INTERRUPT/ 


/SLU1 XMIT RE-INTERRUPTED/ 


/LOADING SLU1 TBUF DID NOT CLEAR INTERRUPT/ 


/SLUL RCVR INTERRUPTS WITH ENABLE CLEAR/ 


/SLU1 RCVR DID NOT INTERRUPT/ 





G/ 


CUKDIBO 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 24-MAR-86 09:57 


SRES 


4624 
4625 
4626 
4627 
4628 
4629 
4630 
4631 
4632 
4633 


022026 044440 
022034 052522 


042111 


052116 
052120 


051105 
000 


MACY11 30(1046) 24-MAR-86 10:44 
TERMI TEST 


NAL OUTPUT 


EM105: 


EM106: 


EM107: 


EM110: 


EMi1!: 


PAGE 85 


-ASCIZ /SLU1 RCVR INTERRUPTS AT PRIORITY 7/ 


-ASCIZ /SLUI RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 


-ASCIZ /SLU1 RCVR DID NOT INTERRUPT/ 


-ASCIZ /SLU1 RECEIVER RE-INTERRUPTED/ 


.ASCIZ /SLU1 READING RBUF DID NOT CLEAR INTERRUPT/ 


SEQ 0084 





a 


CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 86 
JKDIBO.P11 24-MAR-86 09:57 TERMINAL OUTPUT TEST 


4634 022306 020124 046103 040505 
4635 022314 020122 047111 042524 
022322 O51l22 050125 000124 


SEQ 0085 


4636 

4637 

4638 

4639 

4640 

4641 

4643 022330 042522 042523 020124 EMil2: .ASCIZ /RESET DID NOT CLEAR SLU1 RCVR INTERRUPT/ 
4644 022336 044504 047516 
4645 344 020124 046103 

4646 022352 020122 030525 
4647 022360 1040 053103 020 
4648 366 047111 051122 
4649 022374 1 000124 

4650 

4651 

4652 

4653 

4654 

4655 


4656 oceans 046123 030525 023440 E€M113: .ASCIZ /SLU1 ‘OR' FLAG DID NOT SET/ 


4665 027433 123 052514 020061 EM114: .ASCIZ /SLU1 ‘ERROR’ NOT SET WITH ‘OR’ FLAG/ 
4666 022440 05 


042447 1122 051117 
4667 022446 020047 047516 
022454 042523 124 7 
4669 022462 044124 051117 
70 022470 020047 046106 350 
4671 022476 000 
4672 
4673 
4674 
4675 
4676 
46 


77 
4678 022477 104 052101 020101 EM115: .ASCIZ /DATA COMPARE ERROR/ 
022504 047503 050115 oshaos 


4679 
4680 
4681 
4682 
4683 
4684 
4685 022522 3 031125 
4686 
4687 
4648 
4689 


EM116: .ASCIZ /SLU2 XMIT INTERRUPTS WHEN DISABLED/ 





1/7 


CJUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(€1046) 24-MAR-86 10:44 PAGE 87 
JKDIBO.P11 24-MAR-86 09:57 TERMINAL OUTPUT TEST 


90 022560 046102 042105 000 


SEQ 0086 


4696 022565 123 052514 020062 EM117: .ASCIZ /SLU2 XMIT DID NOT INTERRUPT/ 


4705 022621 123 052514 020062 EMi20: .ASCIZ /SLU2 XMIT INTERRUPT AT PRIORITY 7/ 


4711 

47 

4713 

4715 

4716 022663 123 052514 020062 EM121: .ASCIZ /SLU2 XMIT INTERRUPTS WITH ENABLE CLEAR/ 

4717 022670 0465350 052111 044440 

4718 022676 052116 051105 

4719 022704 052120 020123 044527 
022712 044124 16 

4721 022720 046102 020105 046103 

4722 022726 000122 

4723 

724 

4725 

4726 

4728 

4729 022732 046123 031125 054040 EMi22: .ASCIZ /SLU2 XMIT DID NOT INTERRUPT/ 

4730 022740 044515 020124 044504 

4731 022746 020104 047516 020124 

4732 74 047111 042524 051122 

4733 022762 050125 000124 

4734 

4735 

4736 

4737 

4738 


022766 046123 ete 054040 €M123: .ASCIZ /SLU2 XMIT RE-INTERRUPTED/ 





J/ 


CUKDIBO 11/238 
JKDIBO.P11 


SLU LTC REPR 
24-MAR-86 09:5 


123 
041522 
052116 
052120 


044124 
046102 
040505 


DIAG 
7 


051040 
044 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 88 
TERMINAL OUTPUT TEST 


EM124: 


EM125: 


EM127: 


EM1i30: 


-ASCIZ /LOADING SLU2 TBUF DID NOT CLEAR INTERRUPT/ 


-ASCIZ 


.ASCIZ 


»ASCIZ 


/SLU2 RCVR INTERRUPTS WITH ENABLE CLEAR/ 


/SLU2 RCVR DID NOT INTERRUPT/ 


/SLU2 RCVR INTERRUPTS AT PRIORITY 7/ 


/SLU2 RCVR INTERRUPTS WITH INTERRUPT ENABLE CLEAR/ 


SEQ 0087 





KK 7 


CJUKDIBO 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 24-MAR-86 09:57 


4820 
4822 
4824 
4825 
4826 
4827 
4828 
4829 
4830 
4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4B44 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 


023310 
023316 


020105 
000122 


051101 


046103 


040505 


051040 
044504 


020124 
051122 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 89 
TERMINAL OUTPUT TEST 


EM1i31: .ASCIZ /SLU2 RCVR DID NOT INTERRUPT/ 


EM132: .ASCIZ /SLU2 RECEIVER RE-INTERRUPTED/ 
EM133: .ASCIZ /SLU2 READING RBUF DID NOT CLEAR INTERRUPT/ 
EMi34: .ASCIZ /RESET DID NOT CLEAR SLU2 RCVR INTERRUPT/ 


SEQ 0088 





L/ 


CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 90 
JKDIBO.P11 24-MAR-86 09:57 TERMINAL OUTPUT TEST 


4858 023533 123 052514 020062 EM135: .ASCIZ /SLU2 ‘OR’ FLAG DID NOT SET/ 
4859 023540 047447 023522 043040 | 
4860 023546 040514 020107 044504 


SEQ 0089 


4862 025562 
4863 
4864 
ie 
4867 023566 046123 031125 023440 EM136: .ASCIZ /SLU2 ‘ERROR’ NOT SET WITH ‘OR’ FLAG/ 
4868 023574 051105 047522 023522 
486 047 052117 1 
4870 023610 0521 052111 
4871 023616 020110 047447 2 \ 
4872 04 040514 000107 
4873 
4874 
4875 
pH 
4878 023632 046123 031125 041040 EM137: .ASCIZ /SLU2 BREAK DID NOT TRANSMIT ALL ZEROES/ 
4879 023640 042522 045501 042040 
3646 042111 047040 


023701 102 042522 045501 EMi40: .ASCIZ /BREAK DID NOT SET FRAMING ERROR/ 
023706 042040 7040 
023714 052117 051440 052105 


4902 023741 123 052514 020062 EM141: .ASCIZ /SLU2 ‘ERROR’ NOT SET WITH ‘FR’ FLAG/ 





M7 


CUKDIBO 11/238 SLU LTC REPR DIAG 


JKDIBO.P11 24-MAR-86 09:57 
4914 
4915 024005 104 052101 
4916 024012 047503 050115 
4917 024020 020105 051105 
4918 024026 020122 044527 
4919 024034 041440 041101 
4920 024042 000 
4921 
4922 
4923 
4924 
4925 
4926 024045 122 1524 
4927 024050 052116 051105 
4928 024056 052120 
4929 024064 051120 047511 
4930 024072 524 
4931 
4932 
4933 
4934 
4935 024077 041 
4936 024104 052116 051105 
4937 024112 O52 020123 
4938 024 047105 
4939 024126 041101 042514 
4940 
494i 
4942 
4943 
4944 024134 052122 020103 
4945 024142 042524 051122 
4946 024150 020124 044504 
4947 024156 047516 020124 
4948 024164 052503 000122 
4949 
4950 
4951 
4952 
4953 024170 O52122 020103 
4954 024176 042524 051 
4955 044 
4956 024212 047516 020124 
4957 000122 
4958 
4959 
4960 
4361 
4962 024224 O52 020103 
4963 024232 041125 042514 
4964 024240 052116 051105 
4965 024246 052120 
4966 
4967 
4968 
4969 024251 122 051505 


047111 
050125 


020104 
041517 


MACY11 30(1046) 24-MAR-86 10:44 PACE 91 
TERMINAL 


EM142: 


EM143: 


EM145: 


EM147: 


EMi50: 


.ASCIZ 


. ASCIZ 


. ASCIZ 


.ASCIZ 


-ASCIZ 


OUTPUT TEST 


/DATA COMPARE ERROR WITH CABLE/ 


/RTC INTERRUPT AT PRIORITY 7/ 


/RTC INTERRUPTS WHEN DISABLED/ 


/RTC INTERRUPT DID NOT OCCUR/ 


/RTC INTERRUPT DID NOT OCCUR/ 


/RTC DOUBLE INTERRUPT/ 


/RESET DID NOT CLEAR RTC INTERRUPT/ 


SEQ 0090 





N7 


CUKDIBO 11/238 SLU LTC REPR 


JKDIBO.P11 


24-MAR-86 09:5 


051101 


046103 
042522 
041101 
020131 


042111 
041440 
051040 
052116 
052120 


DIAG 
7 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 92 
TERMINAL OUTPUT TEST 


EMi51: 


EM154: 


EMi55: 


-ASCIZ /RTC INTERRUPT DID NOT CLEAR WITH BIT7 OF LKS/ 


-ASCIZ 


- ASCIZ 


-ASCIZ 


/CLOCK REPEATABILITY ERROR/ 


/SLU1 RECEIVER STATUS ERROR/ 


/SLU2 RECEIVER STATUS ERROR/ 


INCORRECT RECEIVE COUNT SLU1/ 


SEQ 0091 





B8 


CJKDIBO 11/2 
JKDIBC .P11 


SSaSSNS SUSE AP ARE SUS URURARIUSS EES ESS 


535 


09:57 


38 SLU LTC REPR DIAG 
24-MAR-86 


024540 046123 030525 000 


123 
040504 
046517 
042440 


044440 
051105 
000122 


044440 
051105 
000122 


051124 
052101 
000 


050101 
044103 


051505 


042440 
020103 
000122 


052123 
051105 
020040 


020061 
041440 
042522 
051117 
054105 


051122 
042522 
020105 
020124 

000 


020062 
041440 
042522 
051117 
054105 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 93 
TERMINAL OUTPUT TEST 


EM156: 


EMi57: 


EM161: 


.ASCIZ 


.ASCIZ 


.ASCIZ 


-ASCIZ 


.ASCIZ 


.ASCIZ 


/SLU1 DATA COMPARE ERROR IN EXERCISER/ 


INCORRECT RECEIVE COUNT SLU2/ 


/SLU2 DATA COMPARE ERROR IN EXERCISER/ 


/TRAP CATCHER/ 


/TEST@® ERR PC TCSR/ 


/TEST@ ERR PC RCSR/ 


SEQ 0092 





CUKDIBO 11/2 
JKDIBO.P11 


PEREPERES ELT tat ge 


025000 051123 


051513 


020040 
052101 
042104 


051503 
043440 


000 


051505 
042440 
020103 
000106 


051505 
042440 
020103 
020122 
047517 
041040 


051505 
042440 


38 SLU LTC REPR DIAG 
24-MAR-86 09:57 





MACY11 30(1046) 24-MAR-86 10:44 PAGE 94 
TERMINAL OUTPUT TEST 


DH? : -ASCIZ /TEST# 
DH32: .ASCIZ /TEST# 
DH61: .ASCIZ /TEST# 
DH72:  .ASCIZ /TEST@ 
DHi15: .ASCIZ /TEST# 
DH137: .ASCIZ /TEST#@ 





ERR PC 


ERR PC 


ERR PC 


ERR PC 


RBUF / 


TBUF / 


LKS/ 


GDADR BDADR GDDAT 


SEQ 0093 


BDDAT/ 


ERR PC RCSR GOOD BAD/ 


ERR PC RCSR DATA/ 





D8 


CaO. 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 24-MAR-86 09:57 


025244 
025252 


025476 
025504 


051503 
042040 


042117 
040502 


005015 


020122 
052101 


051505 
042440 
020103 
020122 


040522 
051040 


051505 
042440 
020103 
020122 
042114 
052040 
042101 


045103 
000102 


020040 
000101 


020043 
020122 
047507 
020040 


020043 
020122 
045514 
020040 


020040 
031124 


042113 


MACY11 30(1046) 24-MAR-86 
TERMINAL OUTPUT TEST 


DH142: 


DH1iS2: 


DH1i61: 


Mi: 


.ASCIZ 


.ASCIZ 


-ASCIZ 


-ASCIZ 


.ASCIZ 


/TEST# 


/TEST#@ 


/TEST#@ 


/TEST#@ 


SEQ 0094 
10:44 PAGE 95 
ERR PC GOOD BAD/ 
ERR PC LKS CNT1 CNT2/ 
ERR PC RCSR TRANS RCV/ 
ERR PC RCSR OLDPC TRAP ADR/ 


<CR><LF >/CUKDI-B/ 





E8 


0095 
CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 96 = 
JKDIBO.P11 - 24-MAR-86 09:57 TERMINAL OUTPUT TEST 

5194 

5195 025510 200 M2; ASCII <CRLF> 

5197 025512 EVEN 

3198 025512 001104 001016 002764 DTS: ‘WORD  $TESTN,$ERRPC,CTCSR,O 

5199 025520 000000 

8501 025522 001104 001016 002760 DT6: WORD $TESTN, $ERRPC,CRCSR,O 

5202 025580 000000 

$204 025532 001104 001016 002762 DT7:  .WORD  $TESTN, $ERRPC,CRBUF,O 

— 

3507 025542 001104 001016 002754 DT31: .WORD $TESTN, $ERRPC,TCSR,O 

soo 

3510 025552 001104 001016 002756 DT32: .WORD $TESTN, sERRPC,TBUF,O 

a 

5218 025562 001104 001016 002750 DT36: .WORD  $TESTN, $ERRPC,RCSR,O 

—— ecerceltineaenss 

5216 025572 001104 001016 002752 DT37: .WORD  $TESTN, SERRPC,RBUF,0 

5217 025600 000000 

3219 025602 001104 001016 002770 DT6i: .WORD  $TESTN, $ERRPC,LKS,0 

$220 025610 000000 

53222 025612 001104 001016 001020 DT72: .WORD  $TESTN, $ERRPC, $GDADR, $8DADR, $GDDAT, $8DDAT,0 

5223 025620 001022 001024 001026 

5224 025626 000000 

5225 

5227 025630 001104 001016 002760 DT115: .WORD  $TESTN, $ERRPC,CRCSR, $GDDAT, $BDDAT,0 

5228 025636 001024 001026 000000 

5230 001104 001016 002750 DT137: .WORD $TESTN, $ERRPC,RCSR, $BDDAT,O 

5231 025652 001026 000000 

5233 025656 001104 001016 001024 DT142: .WORD  $TESTN, $ERRPC, $GDDAT, $8DDAT,O 

5234 025664 001026 000000 

5236 025670 001104 001016 002750 DTIS7: .WORD  $TESTN, $ERRPC,RCSR,XMTCT2,RECCT2,0 

5237 025676 012232 012234 000000 

2539 025704 001104 001016 002750 DT161: .WORD  $TESTN, $ERRPC,RCSR,OLDPC,BDVECT.0 

5240 025712 012614 012616 000000 

5242 025720 000200 BUF1: .BLKW 200 SLU INPUT BUFFER FOR BLAST TEST 
5243 000200 BUF2: :BLKW 200 ‘SLU2 INPIT BUFFER FOR BLAST TEST 








F8 


CUKDIBO 11/238 SLU LTC REPR 


JKDIBO.P11 24-MAR-86 09:5 
ABASE = 176500 777¢@ 
ACPUOP= 000000 795¢ 
ADEVCT= 000000 7884 
ADEVM = 000000 809% 
AENV = 000000 792¢ 
AENVM = 000000 793% 
AFATAL= 000000 785¢ 
AMADR1= 000000 798¢ 
AMADR2= 000000 8014 
AMADR3= 000000 804¢ 
AMADR4= 000000 807¢ 
AMAMS1= 000000 796% 
AMAMS2= 000000 799@ 
AMAMS3= 000000 802¢ 
AMAMS4= 000000 805¢ 
AMSGAD= 000000 790¢@ 
AMSGLG= 000000 791¢ 
AMSGTY= 000000 7 

AMTYP1= 000000 797% 

AMTYP2= 000000 

AMTYP4= 000000 
APASS = 000000 787% 
APTCSU= 000040 33414 
APTENV= 000001 3116 
APTSIZ= 000200 1589 
APTSPO= 000100 3298 
000000 7944 
ATESTN= 000000 786¢ 
AUNIT = 000000 7189 
AUSWR = 000400 7794 
AVECT1i= 000300 778 
VECT2= 808% 
CT 012416 3082+ 

BITO = 000001 
2263 


DIAG 
7 









SEQ 0096 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 98 
CROSS REFERENCE T 


E TABLE -- USER SYMBOLS 


3339% 3367 


5239 
1613 1700 1961 1962 1965 1966 1969 1970 1979 1981 1983 


2730 2740 el4a 








G8 


SEQ 0097 
CJKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 99 
JKDIBO.P11 24-MAR-86 09:57 CROSS REFERENCE TABLE -- USER SYMBOLS 
BITS = 000040 757@ 1604 1607 | 
BIT6 = 000100 756%@ 1610 1755 1760 1770 177101777 1778 1784 1786 1799 1804 1814 
1815 1821 1822 1829 1831 99 997 2007 2014 2015 2025 2027 


1992 1 2008 
2040 2045 2055 2056 2062 2063 2074 2076 2155 2160 2170 2171 2177 
2178 2187 2189 2225 2228 2268 2281 2286 2296 2303 2310 2328 2337 
2347 2361 2366 2374 2394 2407 2412 2422 2429 2436 2456 2465 2475 


2494 2499 2507 2527 2528 2543 2546 2565 2572 2599 2610 2637 
cose 2670 2808 2836 2845 2869 2888 2909 2917 2955 2956 2959 
BIT7 = 000200 755@ 2761 3811 3876 
BITS = 734¢ 
BIT9 = 001000 7534 
BLAST 011474 2798 2925¢% 
BPT = 000003 782¢ 
BPTVEC= 000014 7694 
BUF 1 025720 52420 
BUF 2 026320 2957 2983 3010 52434 
CATCH 012370 821 3080% 
012120 3007¢ 
= 104407 657¢@ 126 3250 
CONT41 010546 2717 272448 
COUNT 12236 2946+ 2965* 2991 3030¢ , 
CR = 000015 677@ 3430 3829 3832 3835 3838 5192 
CRBUF 002762 1527¢@ 1739 5204 
CRCSR 002760 aaen? 1724 1799 1804 1814* 18615 1821+ 1822 1829+ 1831 3788 3861 5201 
CRLF = 000200 stene 3384 5195 
CRVECT 003002 1539% 1800 1801+ 1836+ 2942 3024s 
CTBUF 002766 1529¢ 1642 1661* 1666« 1704* 1707+ 2367# 2370s 
CTCSR 002764 1528 1625 1662 1667 1673 1705 1710 1755* 1760 1770* 1771 1777* 1778 


1784* 1786 2266 2271 2261%  2266%  2296% 2301 2303 23108 2328 2335 2357+ 
2347  2361%  2366* 2368 2374% 2993+ 5198 
1542¢ 2330 2354% 


2299 2300e 2311+ 2320% 23529 


1086 1096 1101 1106 1121 

1264 1269 1279 
1081 tty 1166 1171 1176 
1309 1314 re 1324 1329 


1246 1454 1459 1464 1469 





H8 


SEQ 0098 

CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 100 

JKDIBO.P11 24-MAR-86 09:57 CROSS REFERENCE TABLE -- USER SYMBOLS 

DISPLA 001042 901 1577# 1585* 3106* 3278  3783% 3856+ 

DISPRE 000174 831% 1585 3783 3856 : 

DSWR = 177570 683% 900 1576 

DT115 025630 1345 1491 1502 S227# 

DT137 025644 1435 5230¢ 

DT142 025656 1450 1496 1512 52334 

Ti57 025670 1507 5236¢ 

DT161 025704 1517 5239@ 

DT31 025542 1087 1097 1102 1107 1122 1127 1132 1137 1142 1147 1152 1157 1162 
1350 1355 1360 1365 1370 1375 1380 52074 

DT32 025552 1092 32104 

DT36 025562 1il2 1167 1172 1177 1182 1187 1192 1197 1202 1385 1390 1395 1400 
1405 1410 1415 1420 1425 1430 1445 52134 

DT37 025572 1117 52164 

OTS 025512 saat ps4 oe 1022 1027 1032 1037 1042 1260 1265 1270 1275 1280 

OT6 025522 996 1047 1052 1057 1062 1067 1072 1077 1082 1295 1300 1305 1310 
1315 1 325 3 1335 340 1440 52014 


320 1 1330 1 
OT61 025602 — 1207 +e 1fne ‘See, 1227 1232 1237 1242 1247 1455 1460 1465 1470 





18 


SEQ 0099 
CJKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 101 
JKDIBO.P11 24-MAR-86 09:57 CROSS REFERENCE TABLE -- USER SYMBOLS 
EM136 023566 1428 4867# 
EM137 023632 1433 4878% 
EM14 01 1920 3 
EM140 023701 1438 4891¢ 
EM141 023741 1443 4902¢ 
EM1 024005 1 4915#% 
EM14 024043 1453 49 
EM144 024077 1458 4935¢ 
EMi4S 024134 1463 4 
EM146 024170 1468 49534 
EM147 1473 4962¢ 
EM1S 016324 1025 3 
EM150 1 1478 4969¢ 
EM151 13 1483 4980¢ 
EM1iS52 0 4995¢ 
EM153 1489 
EM154 1494 50134 
EM15SS 024510 
EM156 345 1500 5031¢ 
EMiS? 024612 1 5044% 
EM16 016372 10 39664 
EM160 7 1510 5053¢ 
EM161 024714 1515 5066¢ 
EM17 01 1035 3975¢ 
EM20 016470 1040 3986¢ 
EM21 1045 
EM22 016606 1050 4012¢ 
EM23 1055 4023¢ 
EM24 016710 1 
EM2S 6750 1065 4043¢ 
EM26 017023 1070 
EM27 017060 1075 4067¢ 
EM3O 123 1 4078¢ 
EM31 017175 1085 
EM32 017234 1090 41 
EM33 7273 1095 4115¢ 
EM34 7345 1100 41 
EMSS 017413 1105 4143¢ 
EM36 7455 1110 41 
EM37 017514 1115 4165¢ 
EM40 7553 1120 4176¢ 
EM41 017623 41 
EM42 017661 1130 
EM43 017721 1135 4211¢ 
EM44 017767 11 
EM45 020037 1145 4237¢@ 
EM46 020105 1150 
EM47 020143 1155 4261 
EMS 016010 989 
EMSO 020203 11 4272¢ 
EMS1 020251 1165 42 
EMS2 020321 1170 42980 
EMS3 020365 1175 4311¢ 
EMS4 020423 ii 43220 
EMSS 020463 1185 4333¢ 
EMS6 020536 1190 





J8 


CUKDIBO 11/238 SLU LTC REPR DIAG 
JKDIBO.P11 24-MAR-86 09:57 


EMS? 


Be 


3 
rors 


q ag naEa2E 


1195 
994 


MACY11 30(1046) 24-MAR-86 10:44 PAGE 102 


S REFERENCE TABLE -- USER SYMBOLS 


5239 
3882 


1586 
3832 
2160 
2909% 


3814 


2938 


3194 
211i 
2980 


2045 
2543% 


3257+ 3259% 3262+ 

3838 5192 

2171 2177* 2178 2187 
2959% 2995+ 5219 

3871 

2999% 

3204% 3212*« 3221i* 3222s 
ase 2516 2633 2693 
2056 2062« 2063 2074s 
2563 2565« 2572 2597 


2189 2608+ 2617s 


2698 


2076 
25992 


2713 


2093 
2610+ 


SEQ 0100 

2836+ 
2724 2745 
2106 2122 
2629% 2651 





K8 


SEQ 0101 
CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 103 
JKDIBO.P11  24-MAR-86 09:57 CROSS REFERENCE TABLE -- USER SYMBOLS 
2637¢ 2662s 2664 2670% 2711 2716 # #2742 +«#«&32770 2956 378 3859 S212 5230 
= 104410 658¢ 3701 | 
RDLIN = 104411 659¢ 
RECCT2 012234 2945+ 2977« 3007 3029% 5236 
€2 011762 2977 
RESVEC= 000010 766% 
002774 1536 2591 25938 2611« 2951s 
RTCPSW 003014 15449 2804  2806% 2847+ 2862 2864% 2890% 2953+ 
RTCVT 003012 15436 2156 2157# 2194% 2803  2805* 2819% 2823+ 28346 2846s 2861 2863s 2878+ 
2905 * 2023% 2043 2952% 3025s 
RVECT 002772 1535¢ 2041 * 2D0B1e 2529 25308 2542+ 2550« 2560  2561% 2573+ 2582 2590 
559D% 2606% 2617% 2627 2628% 26438 2660 2661 2677* 2940 29506 3022s 
SLULIT 2250¢ 
SLU2IT 007016 2261 2265 23834 
SLUORT 1660 1702 1839¢ 
STACK = 001100 6708 
START 003016 835 15460 
S = 177774 681¢ 
SWR 001040 1555 1576# 1578 1584* 1591* 1598 1604 1607 1610 2738 © 2761 
3111 (3123 4«=3=_ 3127 32i4e 3251 3267 3596 3633+ 3782s 3784 + 3855= 3857 
SWREG 000176 1584 1598 359% #3609 3782 #3855 
SWO = 000001 
SWOO = 000001 7248 734 
SWO1 = 000002 723¢ 733 
SWO2 = 000004 722 732 
SWO3 = 000010 721¢ 731 
SWO4 = 000020 730 
SWOS = 000040 7198 729 
SWO6 = 000100 7186 728 
SWO7 = 000200 7178 = ~3©= 727 
SWO8 = 000400 7168 726 
SWO9 = 001000 715@ 725 
SW1 = 000002 
SW10 = 002000 7144 
SW11 = 004000 7134 
SWi2 = 010000 712¢ 
SW13 = 020000 711¢ 
SWi4 = 040000 7108 
SW15 = 100000 709¢ 
SW2 = 000004 7328 
SW3 0 = 000010 731¢ 
SW4 = = 000020 7308 
SWS = =_- 000040 729¢ 
SW6 0 = 000100 7286 
SW7 =: 000200 7278 
SW8 39 =_- 000400 7260 
SW9 = =: 001000 725¢ 
TBITVE= 000014 7678 ies 
TBUF 002756 15256 S256 1867 1884 1889s 1911s 1914s 209 i216 2500 2503e 2533+ 2562 2596s 
2688« 7 
TCSR 002754 1524¢ 1852 1885 890 1894 1912 191 Seis 1962 1965* 1966 1969% 1970 
1979+ 5015 2025 2027 2394* 2397 
36 2475 24942 2501 





re 
TAS SEN ARENT ES me mE NAR Sh mmm 


L8 
yon at or SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 104 a 
JKDIBO.P11 24-MAR-86 09:57 CROSS REFERENCE TABLE -- USER SYMBOLS 
TICKER 011716 2965¢ 
TKVEC = 000060 774¢ 
TPSW 003000 1538¢ 2458 2460 2482%  2949% 
TPVEC = 000064 775# 
T = 000034 773@ 1563* 1564s 
TRTVEC= 000014 7684 
TST1 0034 1614 1621%¢ 3065 
TST10 §6©004236 1797¢@ 
TSTil 18444 
STi2 004456 1863¢ 
TSTiS 004516 1877¢@ 
TST14 004610 1882 1904% 
TST15 004670 1909 1927¢ 
TST16 004730 1943@ 
TST17 004770 1895 1959¢@ 
TST2 003476 16 
TST20 005126 1918 1977 1982 1990¢ 
TST2i 005310 20 
ST22 005472 
TST23 005564 21184 
TST24 005626 126 21344 
TST25 005702 2153¢ 
TST26 006100 22108 
TST27 2215 22554 
TST3 003544 1654¢ 
TST30 2294 
TST31 2326¢ 
TST32 704 2359% 
TST33 007016 2388% 
TST34 007140 24208 
TST3S 2454¢ 
TST36 007414 24874 
TST3?7 2492 2S525¢ 
TST4 003714 1680 1698¢ 
TST40 007676 2556¢ 
TST41 010014 2588¢ 
TST42 010146 26234 
TST43 010252 2650¢ 
TST44 010376 2655 
TST4S 010464 2686 2708¢ 
TST46 010572 27368 
TST47 010664 2739 27598 
TSTS 2 1711 17208 
TSTSO 86010762 2762 2761 27944 
TSTS1 011210 
TSTS2 011356 2859 
TSTSS «011474 2901 29308 
S17, 904079 17536 
TVECT 002776 1537@ 1993 1994% 2032+ 2395 2396* 2406+ c414* 2425 2426e 24378 24462 2457 
I 1 te 247i* 2481% 2497 2498 2517+ 2939 2948  302i+ 
TYPE = 104401 651¢ 689 1691 3052 3055 3114 3149 3166 3168 3171 3173 3177 3184 
3500 3608 361 3624 3635 3654 3705 3708 3712 





M8 


CJKDIBO 11/238 SLU LTC REPR 
JKDIBO.P11 86 09:5 
TYPOS = 104403 653¢ 
UNIQUE 006100 2138 
WAIT 015576 3822¢ 
WAITER 012074 2996 
WAITIO 011712 Soeee 
WOONE 005514 209 
WRPSW 012356 1758 

2423 

2658 
XMIT2 011726 2948 
XMTCT2 012232 29444 
XXX 011110 2819 
APTHD 000500 859 
$ATYC 013312 3289 
$ATY1 013266 3287¢ 
$ATYS 013274 3288¢ 
$ATY4 013304 1628 
$AUTOB 001034 897% 
$BASE 001154 964¢ 
$BDADR 001022 892¢ 
$BDDAT 001026 894¢ 
$CHARC 014064 3389* 
$CKSWR 014542 3596¢ 
SCMTAG 001000 880¢ 
$CNTLG 015277 3607 
$CNTLU 015272 3624 
$CPUOP 1126 938% 
$CRLF 001075 917% 
$0BLK 14 3541 
$DEVCT 001110 929¢ 
$DEVM 8 001 965¢ 
DOAGN 012 

846 
56 


DIAG 
“ 


1669 
3604 


3222 
2784s 
3406 


MACY11 30(1046) 24- 
CROSS REFERENCE T 


2472 


1677 
2980« 
3432s 


3168 


1609« 


2158 
2495 
2865 
3012 


3119 


3015+ 
3437¢ 


3173 


1612« 


MAR -86 


1700 


10:44 PAGE 105 
ABLE -- USER SYMBOLS 


2312 
2558 
2914 


5230 


1846 





2333 
2574 


30734 


2136 


2100 


2344 
2594 


2182 


5210 


2362 
2607 


2390 


2212 


52135 


2371 
2625 


5216 





SEQ 0103 


2399 
2634 


5219 








N8 


CUKDIBO 11/238 SLU LTC REPR 
JKDIBO.P11 24-MAR-86 09:5 

001055 907¢ 
001020 891¢ 
001 8934 
012312 3056¢ 
014612 3608¢ 
866¢ 

001 8844 

013076 3194 
1035 898% 
001014 888¢ 
001076 918¢ 
013531 3328* 
1006 885¢ 
001010 886¢ 
1132 951¢ 
001136 955¢ 

001142 

001146 961¢ 

001100 867 
001130 9454 
001134 953¢ 

001140 

001144 9594 
867¢ 

13530 3288* 

015315 3611 
001114 931¢ 
001116 932¢ 
001100 9254 

3608 
001131 9464 
11 954% 
001141 957¢ 
001145 960¢ 
001054 906¢ 
14312 3472s 
014314 3467+ 
1 3252 
001106 9284 

2491 
869¢ 

3227 

1565 
3227¢ 

3204 


DIAG 
= 


871 


MACY11 30(1046) 24-MAR-86 10:44 
CROSS REFERENCE TABL 


5222 
2783* 


2985+ 
3152 


3274 
3269 


3333¢ 


3310* 


34798 
1685 
2900 


SEQ 0104 
PAGE 106 
E -- USER SYMBOLS 
2987*  3016* 5222 5227 5233 
3279 
3275« 
3322 33254 
3490e 3516¢ 
18861 1908 1976 2022 2071 2102 2184 2214 2259 
2934 3044% 3045« 3053 





BY 


SEQ 0105 
CUKDIBO 11/238 SLU LTC REPR DIAG MACY11 30(1046) 24-MAR-86 10:44 PAGE 107 
JKDIBO.P11  24-MAR-86 09:57 CROSS REFERENCE TABLE -- USER SYMBOLS 
$SWREG 001122 9369 1591 
$SWRMR= 000000 6640 | 
STESTN 001104 927¢ 1548% 1622* 1639% 1655* 1699* 1721* 1736* 1754* 1798% 1845+ 1864* 1878 
905¢ 1928% 1944% 1960% 1991%  2039% 2089% 21198 2135% 2154% 2211+ 22568 2295 


1 
2327* 2360% 2389% 2421% 2455+ 2488% 25264 2557« 2589% 2624« 2651* 2684+ 2709 
Ae Lt 2760* 2795 2855* 2897* 2931 ih 5198 5201 5204 5207 5210 5213 


16 5219 5222 5227 5230 33 52 5239 
T 1046 3413 3671 3677 
$TKS 001044 3411 3418 3598 3614 3638* 3669 3675 
$ 1060 910% 2939 
$TMP1 001062 911@ 2940# 3022 
$TMP2 001064 912% 2941+ 3023 
$TMPS 1066 913¢ 3024 
$ 001070 914¢@ 2943 
$TN = 1 662¢ 6654 7804 
$ 1052 3429% 
$TPFLS 001057 909% 3361 
$ 1050 3427 
$TRAP 015326 1563 37408 
$ 015350 3751¢ 37 
dae 015362 3745 37624 
$TSTNM 001002 882% 3043* 3106 3272 #3273 3278 
$TTYIN 015262 3698 3699 3716 37204 
$TYPDS 014316 _ 3529e 3767 
$TYPE 013534 3315 33612 3763 
$TYPEC 013746 3391 3398 3405 3410¢ 3640 
$TYPEX 014066 3433 3435 3438¢ 
$TYPOC 014114 3470@ 3764 
$TYPON 014130 3469 34728 3766 
$TYPOS 014070 3465¢@ 3765 
$UNIT 001112 9304 
$UNITM 000510 8708 
$USWR O01 937% 
$VECT1 001150 
$VECT2 001152 
$XOFF = 000023 661¢ 3415 
$XON = 000021 3682 
$XTSTR 013126 3254¢ 
$OFILL 014313 3466+ 3470* 3480 3515¢ 
‘ = 026720 8134 8204 8244 830¢ 8349 839¢ B44 845¢ 847¢ 8494 855 8564 858% 
2604 8794 985@ 1004@ 1012@ 1255¢@ i556 1570 i571 3187@ 3206 3230 3337¢ 
3585¢@ 37200 3843¢ 51974 S242¢ 52434 
$ERRT 001160 
$X = 855¢ 850 


ERRORS DETECTED: 0 


JKDIBO , JKDIBO/SOL/NL : TOC/CRF : SYM=SYSMAC . SML , JKDIBO.P11 
RUN-TIME: 10 15 1 SECONDS 

RUN-TIME RATIO: 60/26=2.3 

CORE USED: 36K (72 PAGES) 





C9 


CJKDIBO 11/238 
JKDIBO.P11 


SLU LTC REPR 


24-MAR-86 09:5 


DIAG 
7 


MACY11 30(€1046) 24-MAR-86 
CROS 


10:44 PAGE 108 


S REFERENCE TABLE -- USER SYMBOLS 


SEQ 0106 


ne 


